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Gualidade e desetnpenho s§o as 
principals caracteristtcas da 
GRAFIX 100 HS da Scritta 
Eletronica, 



pormitindo a utillzacio de qualquer 
software disponivel no mercado: 
lotus 1-2-3, Symphony,, 
Framework, Obase III, etc, 



A GRAFiX 100 HS imp rime a 160 
caracteres por segundo ern 136 
colunas, com ba-ixo nivel de ruido r 
gracas a aplicacao da materials 
especiais deserivolvidos pelo sea 
departamento de engenharia . 



Devi do ao reduzido diametro-das 
agulhas (Q r 3mm) a GRAFIX 100 HS 
im prime gteficos com inigualavel 
definite. 

Peca uma demon stracao da 



GRAFIX 100 HS. 




Como to das as impressoras 
GRAFiX, ela e total mente 
compativel com qualquer 
m i croco mpuiador, espec ia I mente 
com os compativeis IBM-PC, 




Al. Amazonas, B32 - Alphavifle 
Bonier] SP Tel. 421-1247 



GRAFIX. TECNOLOGIA SEMPRE EM EVOLUQAO. 
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IBM PC/XT 

[*) 



(OH) 2237388 



• Placa de CP/M 
p/SF-16 com 64 kbytes. 
Tramforrna mstante da me- 
mdriaem HAM DISK . 



Gabos de ligagao micro/impressora . . . 
........... + h . - sob consults 

* IBM e marca registrada da Interna' 
uonal Business Machine 



PROGRAM AS - 5P16 



compatiVelcom _ 





i] 


L 





Placa rede de comunica^Io NCT- 
7301,. p/interligar vinos SP-16. 

201.5 ORTN 

Placa emuladora de terminal iBM 
327B/3279 NCT 7101 PCOX. 

. 297.5 ORTN 

Flaca de comunicacSo BSC3 NCT- 

7001 160.9 ORTN 

Piaca emuladora de terminal IBM 
3278/3279 NCT 7201 IRMA. 

299.6 ORTN 

Place BACKUP disco n'gido p/video 
caisete NCT 6201 . . 221.7 ORTN 



ASSISTENCIA 



TECNICA 



Direto: [011)220-5794 

Consertos e contrato de manuten-pao. 



1 (, ,Vv, ,vr.'\y!y- 'ifV \\V'' * 

VERSAO I f p«e cos sod consult* l 

2 drives, slims, FO/DD, 320 kbytes 

VERSAO II 

I drive FO/DD, 320 kbytes memoria 
RAM e Winchester 5 MbyteS- 

VERSAO III 

1 drive FO/DD. 320 kbytes mem Aria 



RAM e Winchester de 10 Mbytes 



VERSAO IV 



1 drive FD/DD. 320 kbytes memoria 



R AM e Winchester de 1 5 Mbytes 



EXPAN5AO DE 
MEMORIA 



Placa expanse de 320 kbytes, ex- 
pandmdo at£ 640 kbytes de memo- 
ria RAM p/SPlfi . 



* CP50O 022D-M80, 1 drive FD/DD„ 
DOS 500, CP/M 80 colunas. 

* CP500 023D-M80. 2 drives FO/DD, 
DQS-500, CP/M 80 colunas. *m| 

■ CP400 color II 64 kbytes. KsJ 

* CP200S. 16 kbytes eprecos sob consults! 



Contrnle de ei toque . . . sob consulta 

Contab i I i dade sob consu I ta 

Folhade pagamento . . . sob consulta 
Contas a pagar e race be r . sgb consulta 
Cadastro de clienies . . . sob consulta 

Mata direta . sob consul ta 

OATAFLEX mono e mulliusuirio 
8 e 16 bits ......... sob consulta 

CONSULTE QUTROS SOFTWARES. 



SUPRIMENTOS 



Diskettes 5 1/4" caixa com 10 unida- 

des FS/DD 6.01 ORTN 

FD/DD , 7.33 ORTN 

Formulirio continue 1 via: 

B0 cplunas [milk) , . , 1.05 ORTN 
132 colunas tmilh.) . . 1.24 ORTN 
Fitas p/imp ressora: 

P5O0 0.57 ORTN 

P720 0.19 ORTN 

P740 ........... sob consulta 

Mesa p/comp u tad pres . . 9.37 ORTN 
Estabilizadores da tensio: 

0,8 kVA 40 62 ORTN 

1.5 kVA ...... + . 45.69 ORTN 



I Software video lex to p/CP 500 ..... 

2.01 ORTN 

Modem EM8RACOM .. 18.4 ORTN 



CP532C (RS232/CP500) 29.8 ORTN 



♦ PSOOS para l-ela ou serial 150 CPS, 80 
colunas. caracteres normais, compri- 
midos e expandidos , grif i co co mp at i» 
vel com MX-80 . ^ 

•P720 par ale I a e serial 200 CPS 132 
colunas e compati'vel com MX-10C. 

*P74Q paralela e serial 400 CPS, 132 
Coiunas . (pracoa 50 b consulta! 

CBS. l Impressoras P500 e P720densF 
dade grafica compativel com graficos 
LOTUS 1 r 2 . 3, Picture Graphic, etc. 



FILCRES ELETRONICA ATACADISTA LTDA, 

Rua Aurora, 166/179 — Sao Paulo - &P — Estadonamento propria 
Teli Vendas iPBX) 223 7333 - 222 0016 - 223 7234 



Serial 300 , . , 10.81 ORTN 

Joystick CP400 ...... 2.8 ORTN 

Monitor color! do p/SPIS.sgb consulta 
Placa CP/M p/CP5Q0 M.8D com 128 
kbytes RAM ........ 22.2 ORTN 
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Compreenda os princfpios basicos dos pacotes graficos disponiveis 
para os micros da linha Apple e utilize plenamente o seu potencial. 



Pacotes graficos 

Giiberto Caserta e Jaime Nisenbaum 



O s computadores Apple II e compativeis sao bem ser- 
vidos no que se refere a pacotes graficos, isto e, pro- 
gramas especificos que trabalham com a capacidade 
do computador em gerar e mostrar imagens. 

Dentre os fatores que propiciaram o desenvolvimento desses 
programas, podemos salientar a versatilidade e o baixo custo 
do equipamento aliados ao fato desses computadores ja possui- 
rem uma capacidade grafica em sua estrutura interna, nao sen- 
do necessario, portanto, adquirir placas adicionais para este 
fim. Alem disto, apesar de sua maxima resolu9ao de imagem 
ser de apenas 280 x 192 pontos com seis cores, os resultados 
tanto para o desenho como para a anima^ao sao bastante ra- 
zoaveis. 

Isto posto, neste artigo, procuraremos fazer um apanhado 
das principais caracteristicas de alguns dos pacotes graficos e 
utditarios disponiveis para este equipamento. 

Para uma melhor compreensao e posterior comparagao dos 
pacotes graficos, e conveniente que se fa$a, preliminarmente, 
uma subdivisao destes entre sistemas de desenho {paint sys- 
tems) e sistemas de anima$ao. 

SISTEMAS DE DESENHO 

A maioria dos pacotes graficos disponiveis e de sistemas de 
desenho. Estes sistemas permitem que voce desenhe no compu- 
tador como se estivesse utilizando os instrumentos usuais de 
pintura, tais como pinceis de varios tamanhos, canetas com di- 
ferentes tipos de tra90, paleta de cores, etc. Alem disto, esses 
programas possuem comandos que perfazem uma serie de fun- 
9oes que seriam dificeis de se reahzar utilizando os metodos 
tradicionais de pintura e que possibilitam ainda uma grande 
variedade de efeitos. Dentre esses comandos, podemos destacar 
os seguintes: 

. Cut e paste: permitem que voce selecione peda90S de seu 
desenho colocando-os em qualquer outro ponto da tela; 

Zoom : permite analisar e desenhar detalhes em qualquer re- 
giao da tela; 

Fill: preenche automat icamente uma regiao com uma cor 
pre-selecionada; 

. Undo: apaga a ultima opera9ao realizada; 

. Mirror: a tela do computador e momentaneamente dividida 
em dois lados e qualquer tra90 feito em um deles e refletido 
para o outro; 
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. Figuras -geometricas: permite tra9ar com facilidade retas, re- 
tangulos, circulos ou elipses. 

Todos os sistemas de desenho necessitam de um instrumen- 
to que sera utilizado para desenhar as imagens. A maioria dos 
sistemas de desenho permite que o usuario selecione previa- 
mente qual o instrumento a ser utilizado. Alem do proprio te- 
clado do computador, cujas teclas assumem caracteristicas es- 
peciais em cada programa, os instrumentos mais usuais sao: 

. Joystick: e o mesmo sistema utilizado nos videogames. Nao 
possui boa precisao para o desenho; 

. Touch pad: prancheta de dimensoes reduzidas que permite 
desenhar atraves de uma membrana sensi'vel ao toque; 

. Tablet: mesa digitalizadora de boa precisao e sensi'vel ao 
contato de uma caneta especial; 

. Light pen: sistema otico no qual a inter a9ao e feita direta- 
mente com o monitor. 

Ate ha pouco tempo, somente o joystick era fabricado em 
escala industrial no pais. Recentemente, a Compo do Brasil 
lan90U o Compo Pad que e um tipo de touch pad. 

A seguir, faremos uma breve descri9ao de dois dos princi- 
pais sistemas de desenho existentes atualmente: 

. Koala Painter (Island Graphics) — criado especialmente para 
o Koala Pad (um tipo de prancheta de desenho), foi o primeiro 
software para a linha Apple a incorporar a filosofia de menus 
com sfmbolos graficos, que praticamente dispensa explica 95 es 
para ser utilizado. Seu menu e dividido em tools, brushes e co- 
lors. Em colors, alem das cores normalmente encontradas num 
Apple, voce pode selecionar grada90es em forma de reticula de 
cada uma delas. Em brushes pode ser escolhida a espessura do 
tra90 de acordo com o efeito desejado, como se tivessemos a 
mao varios tipos de pinceis de formatos diferentes. Finalmen- 
te, em tools sao encontrados os diversos modos para se dese- 
nhar: & mao livre, circulos, retas, quadrados e preenchimento 
de cor e as op90es para impressao e acesso ao disk drive, quan- 
do a ilustra9ao podera ser armazenada sob a forma de arquivos 
binarios de 33/34 setores. 

E um programa de aprendizado rapido mas que falha em 
n 3 fo possuir algumas op 95 es importantes como insergao de ta- 
belas de formas ( shape tables) e textos nos desenhos. Ja exist e 
sua versSo nacional, o Compo Micro Ilustrator que acompanha 
o Compo Pad. 

. Blazing Paddles (Baudville) - e um Koala muito melhora- 
do. Alem de todas as caracteristicas do anterior, permite a 
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escotha de cores mixadas duas a duas, a tnclusfo de ta betas de 
formas e jogos de caracleres, fu rifles dc cut c paste. funqjo 
airbrush para efeilos de relevo on sombreados 1 rnio livre, 
dando lima miprcss&o mais real do objeto desenhado, e o 
essential undo. Outra caractemtiea que Ihe ofcrece grande 
versafilidade c a sclt^do do equrpamentO que o operadur uti- 
lizard para desenhar: touch pad, graphic tabid, mouse, light 
pen € joystick on paddle. ALcmdi&so, a Baudville comertmliza 
discos- bibl lot tea de tipas de kira, labetas dc formas c ilustra- 
^•fles cm geral que podem ser uiiJizados pelo blazing Paddles, 
ampliando cm muito os seus recur 80s, 

SISTEMAS de ANIMAt AO 

0 principle que rege a animat; do cm duas dimcnsOes no 
Apple 11 e cumpativeis 6 o mesmo da anima^O traditional, 
ou seja, uina sueessao de fotogramas que criom a ilusao do 
movement a. 

Os sist etnas de animate atuais sJo, na sua essence, si sto- 
mas de desenhos que perm item que voce most re as image ns 
desenhadas numa .seqikncia pre-CKtabekcida. 

Existem, basicamentc, tres mane bus de se fazer anima^lo 
nestes equipamcmlos: atraves de tabelas de formas, de movi- 
menio de b locos { block animation) e dc movlmento dc tnmsr 
parencias {sprites). A piimeira, ja coberta cm v^rios artigos de 
MICRO SI STEM AS, e reconheddamentc lenta. pois ocumpu- 
tador deve desemhar a forma toda vez que for most ri- la mama 
nova posif3o e a present* problems quart do neecssUamos 
snhrepd-la a um fundo eolondo. As duas ultimas caracterizam- 
se pel a movimenia^ao de bloeos de memdria, 0 que pioportio 
si a uma velocidadc beni maior, el im man do o$ problems s de 
cor, desde que sc observem idgumas recomcnda^Ccs do box. 

O que diferencia a inimwpSo cin bloco da anima^So por 
rransparcncia t que a primeira aobrcpOe todo o bloco de 
memdnj sabre o fundo, en quanto que a segunda apenas o 
desenho eontsdo no bloco de memtiria, como pode set vislo na 
figura L 

Dos dais programis dcscritos a seguir, o TAKE I podc Ira- 
balhai lamo com animat 3o cm bloco como amma^Jo por 
(ran spare ncias. enquauto o I GS t rabalha apenas com a pnmei- 
ra. 

.Take 3 [Baudville) £ o mclhoi c mats inteiesaiUe 
pacote dc antma^io atualmente dispom'vd. Coin ele, voc^ 



cria stores, cenarios c coreograftas, montando ludo como num 
filme. 0 principio de quatquer animagao no Take l passa. 
invariavelmente, peiu "Editor de llustraij^o", onde, via teda- 
do. lemos acesso a op^Ces para cnirada de lexio e tabela dc 
formas, preenchLmenio com cores em padrfles pre-estabclecir 
dos, zoom, rebaitmento de imagens na horizontal e vertical e 
armazenainento da tela de alta resolu^do de maneira comprimir 
da, ocupando pouco espaijo no disquctc. 

Com o “Editor de llustra^o", podemos criar uma paisa- 
gem, uma sala^de-estax ou quatquer outro desenho que preten- 
dcinos obter como cendrio. Aqui tambem c onde criamos 
as personage ns que pretendemos niovimentar (por excmplo, os 
desenhos de todos os passos de um boneco ao cammhar), A 
seguir, no submenu de atores ’‘capturamos com uma jancla 
move! e de tamanho variavel, os desenhos da persvinagem para 
criar um unico arquivo com todos os fbtogramas que serffo 
exibidos na tela um ap6s □ outro, criaikdo a ilus&o de movi- 
mento. 

Esse at or pode, entJo, ser sohreposio a um desenho de 
fundo de ties maneiras: block {toda a area da jane la i* sobre- 
post a), sprite (transparenda nos limites da persona gem) e 
sprite with holes (rransparencia. cm areas selccionadas), de- 
pendendo do cfeito deseiiado e de sua int cranio com outroi 
a tores. £ important e notar que quanto maior for o tamanho 
da personagem, mais demorado sera o seu proecss^mento pelo 
micro, tornando a a^fo mais descontmua. 

No proximo item, no “Editor de Ctna", t onde toda a 
corcografia c dctemiinada. Seleciuna-se oecnario desejado,os 
at ores, as Ictras — se houverem - e a iajxa de quadros por 
segundo. Atraves dc teclas especificas, e possivel mover o 
at or pda tela, sobrepondo-c ou encobrmdo-o por outros; 
adicionar sons ou pausas e gjavnr toda a sequence. 

No “Editor do Filme’’, monlamos a fita propriamenic 
dila, sdocionando cada cena com detemunadus fundos c 
escolhcndo OS fades de entrada e saida de uma cena para ou- 
ira. Gravado o fdme. podemos observa-lo no piojetor, onde as 
etnas sao executadas sobre aspaisagens, conforms a sequencia 
ja determinada. Todo o piocesso e muito paiecido com a am- 
rna^Jo traditional, pots os atores, como as trail spa renctas, 
podem ser sobrepostos em cenarios (life rentes, 

. The Graphic Solution — TGS{ Accent Software) Progu- 
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ma de dificil domimo. pois sJo inumeras fungus espalhadas 
em v arias leclas de maneira pouco mnemonics. No item do is 
do seu menu, encontramos dois modus de edigao de imagens: 
cm baixa e em a It a resolute. 0 inodo de baixa resolute 
apresenla a imagem em zoom, onde podemos comprimMa 
ou expandi- la, move-la para os quatro lados, rmidar suns 
cores, desentiai ou apagar. Esta imagem nSo pass de uma 
jancla da tela de ait a reSolugJu c pode ser reproduzida muioe- 
ras VeZeS. Em alt a reSclugSo, podemos desenhar somente h- 
nhas e cfrculos de lima iinica expessura. For nlo possuu a 
fungJo fill o preenchimento de areas c feito reproduzindo-se 
virias janetas de balsa resolugao com a cor desejada. Para mo- 
ver objetos, precisamos fotografa-los com a janria em vanas 
posigbes e entao sobrepd-los rap Edam entc para sugerir o mo- 
vim ento, Para objeros maiores que as dimensOes da janela, 
e preciso utilizar duas ou mais j&neUs taniltaneamente, fator 
que d i fieri It a o processo. 

Resta notar que todax as animag5es com oTGS sffo do tipo 
block , sen do ex ibid as soment e na pigina I de alia resolugJo. 

For ouiro ladu, sua grande vantagem esta na total indepen- 
dencia da animagao do rest ante do program a, podendo ser 
comandada por BASIC, com total com role da velocjdade de 
cada qua dr o, de sua posigSo nas coordenadas x e y e da intera- 
9 J 0 com sub -rot mas ext e mas de som e denials efeitus de tela, 
o que 0 torna util ravel em programs s onde 6 necessaria a 
animagSo interagindo com o nsuino, como no caso de progra- 
ms e ducat ivos e videogames. 

trriLITARlOS 

Os principals utilitirios exist entes para a area grificu. no 
Apple s3o: 




— Sintese da voz, um artigo 
sobre como se processa a 
reprodugao da fala atraves 
do computadon 
— Tecnicas de aiquivamento; 

processes de gravagao 
no TK90X e programa para 
gravagao auiomdtica 
de dados no ZX81 
EMAIS: 

programas para cadastro, 
musica e diversos jogos. 

MICRO SISTEMAS n.° 55, 
com a conclusao 
do curso de FORTH 

NAO PERCA, 



, PIX1T (Baudville) — £ basicamente um editor de tabelas 
de formas. Tot aim cut e acessado via tcclado, postil um menu 
principal com opgOes para edigao de formas, construed de 
tabelas de formas e um editor de desenhos. Na edigSo de 
formas, voce escolhe 0 tamanho e a pusigao initial da forma, 
e a medida que esta e t rag a da, o programa forneec o rtiimero 
de bytes uiilizados. Na const rug Jo de tabelas de formas e 
dad a a possibilidade de se carre-gar virias formas e ordenddas 
em uma tabela, gravando-a no disco. 0 editor de desenhos 
possui tedas apenas para movimeniagJo com ou sem tragado, 
opgJo para ciroilos, preenchimenlo de cores pre-definidas e 
composigdo com tabula s de formas que podem variar no ta- 
manho, rotag^o e cor.. 

, TRIPI E DL^MP (Beagle Bros) — £ um programa para 
impressJo de graficos de baixa e alt a resolugSes, coitln tambem 
test os em 40 e SO culunas. Fussibilita seLeflo da Srea da tela 
a ser impiessa, rotagdo da imagem (0, TO. ISO e 270 grans), 
inversao, am pt rag So nas escalas X e V individualmente e varia- 
g3o na denaidade de impressao. 

No mesmo disco, encontram-se dlsponiveis retinas para 
com prim if e descomprimu e para re bat brum to na vertical 
de t e-las cm alt a rcsolugJo, ban como um programa para gerar 
faixas com ate 200 caracteres de S M de altura. 

Para final izar, sabentamns a crescent e utilizag^o do cumpm 
tador como ferramenta na produgflo grafiga c na gcrag3o de 
image ns. sen do, de fundamental im porta ncia para 0 seu 
desenvolvimenlo, que a indu stria nacional de computadores 
e perifericos apoie e incentive as iniciativas nest as <ircas. 

Agradecemos a Royal Software pda sua valiosa eoiaboragJo 
neite artigO. 



Dicas 



Se voce utiliza ou pretend e utilizar algum dos progra- 
mas dose rites ueste artigo, permita-nos Jar aigumas 
reconi endag^es uteis: 

. Levando em consideragJo que as cores sJo divididas 
em Grupo l (branco I , preto l, verde e violela}e Grupo 
2 (branco 2, preto 2, vermeUio e azul), tome cuidado 
para nSo utilizar cores de grupos difer entes num mesno 
byte. A ultima COr ird prevadecer e voce leri Uma imagem 
tod a manchada. 

, A means obscrvagJo serve para os atores do Take 1 
sobre cenfrios de cores de grupos diferentes. 

, £ mais ficil criar os desenbos num sistema de desenho 
para somente depois dar 0 movimento num sistenm de 
animagJo, porque estes ultimas nJo possuem bons 
editores de ilustraglu. 

. As linhas diagonals podem ser suavizadas tirando-se 
um pixel de cada degrau da escadinha; 




. Nas an imagoes com desiocamento de memdria, 
procure fazer 0 fundo do block com o mesmo pad r So ou 
com a mesma cor do fundo da tela, evitando a formagffo 
de rastros por onde passar 0 objeto. 



m 



Gifberto Caserta 6 t armada em propaganda pel a E scold Superior de Pro- 
paganda « Marketing. Jaime Nisenhaum 4 dtp tornado cm Engenham t 
Eimrdwca, pels USP. Ambos fundaram a empress Neo Conu/flietp Jb, 
especiahiada na elaborapao de grificos e $f*imac$Q com micros da dnha 
Apple. 
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Voce possui um micro da linha Sinclair e deseja melhorar o visual 
do seu programa? O Ed- Art GGMI com cortesia vai ajuda-lo. 



Ed-Art GGMI 

Claudio Bittencourt 



O computador e uma maquina fria, impessoal e, para 
muitos, antipatica. Sem duvida, mas e proprio das 
maquinas, essa inven9ao do bicho-homem que car- 
rega tao pouco da personalidade do seu criador, 
justamente naquilo que ela tem de mais humano. 

Os seuS programas, por exemplo; voce ja reparou bem neles 
k luz do sentimento estetico ou moral ou sentimental? Sao de 
fato frios, convenhamos. A despeito de toda a sua criatividade, 
voce ndo tem feito muita coisa para atenuar essa faceta menor 
do seu equipamento, nao e verdade? E no entanto, voce e um 
cara legal, amante do belo, cheio de ternura no coratjao. Voce 
nao e maquina! 

Urge entao fazer algo a respeito e aqui esta GGMI para des- 
pertar a veia artistica que ha, reprimida, dentro do leitor. Atra- 
ves da arte visual, vamos explodir para o mundo esse oceano de 
sentimentos que jaz latente no fundo de su’alma (bonito, 
hem!?). 

0 Ed-Art GGMI e um editor grafico que se presta a prepara- 
9ao de telas, as quais poderao ser arquivadas em fita indepen- 
dentemente e acopladas a qualquer programa, de sua lavra ou 
nao. Dependendo da sua convenience, as telas poderdo ter 
continuidade entre si, formando um telao. Sequences verti- 
cals e bidirecionais sSo tambem fdceis de se conseguir. 

MONTAGEM 

0 Ed-Art foi criado para ser um modulo do Micro Bug. Para 
montd-lo, carregue no micro esse fabuloso (nunca e demais di- 
zer) programa publicado pela sua MICRO SISTEMAS e, com 
o comando M, digite os codigos da listagem nos enderegos indi- 
cados. Ao terminar, confira com o comando P 6E00,783A. O 
resultado tem que ser 9B0A. Isso posto, salve-o em fita varias 
vezes com o comando I 6E00,783C. A seguir, use o comando 
C do Micro Bug para carregar um modulo salvo; so depois des- 
sa opera?ao ele podera ser acessado. 

ORGANIZACAO DA MEMORIA 

Um modulo do Micro Bug ocupa a memoria do endere90 
6E00 ate 77FF, mas o Ed-Art e diferente, pois foi necessario 
aumentar o espa9o, baixando o endere9o inicial para 6BOO 
(ou seja, menos 768 bytes). Junto com ele desceram o RTP, 
a ENSP, o stack do GOSUB e o stack da maquina — veja o ma- 
nual do micro para maiores esclarecimentos. Nao se preocupe 
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com essa expansao, pois tudo ocorre automat icamente quando 
e acionado pela primeira vez qualquer um dos quatro coman- 
dos dispomveis no Ed-Art. E o status quo anterior e restabele- 
cido ao ser acionado o comando C do Micro Bug, que cairega 
um novo modulo no lugar do Ed- Art. O unico efeito pratico e 
uma diminui9ao correspondente da memoria disponivel para 
os programas BASIC, abaixo do Micro Bug. Mas em 99% dos 
casos essa pequena quantidade de bytes nao fara falta. 

Alem do arquivo de imagens normal do micro, que aparece 
na tela da TV, o Ed-Art trabalha com mais dois arquivos, situa- 
dos em buffers nas seguintes pos^oes da memoria: 

1 9) Principal - de 27392(6B00) a 28159(6DFF) 

29) Reserva - de 28160(6E00) a 28927(70FF) 

COMANDO T 

O comando T, acessado via Micro Bug, e o editor propria- 
mente dito. Ao ser acionado, aparecera na tela o Ed-Art pis- 
cando maliciosamente para voce — nao o censure, e uma corte- 
sia - pois, trata-se de um cavalheiro de fina educa9ao. Apague- 
o com SHIFT A. Restara na tela aquilo que o manual do micro 
chama pomposamente de “elemento de imagem”, mas que 
para nos respondera pelo simpatico nome de pixel. 0 dito ocu- 
pa a area de 1/4 de cardter e e usado nas instru95es PLOT e 
UNPLOT do BASIC Sinclair. Reconheceu? E o proprio. Pois 
o pixel desloca-se nas oito dire9oes cardeais com o uso das te- 
clas abaixo, sabiamente escolhidas por GGMI em fun9ao de 
mnemonicos que facilitarao a sua vida, leitor. 

TEC LA MNEM8NICO DIREgAO TEC LA MNEMffNICO DIREgAO 

1 E X s C<J: 

2 a / 6 h ^> 1 

3 □ \ 7 f 

4 n / a a -L 

0 pixel pode caminhar nas cond^oes PLOT, UNPLOT e 
“Sem Rastro”, conforme tenham sido acionadas previamente 
as teclas K, J ou L, as mesmas de +, - e = . Pratico, nao? 

MACROCARACTERES 

0 pixel e o modo principal de edi9ao, permitindo acesso a 
todas as fun9oes disponfveis. Podemos imprimir macrocaracte- 
res acionando as teclas N (de <) ou M(de >). A primeira pre- 
para um carater grande (4x4) e a segunda, um gigante (8x8). 

Os sfmbolos “<” e ”>” alternam-se com o pixel piscante para M 
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indicar a condigao assumida. A tecia que voce pressionar em 
seguida sera macroimpressa, salvo se for NEW LINE, FUNC- 
TION, RUBOUT ou GRAPHICS, que desativam a preparagao. 
Todos os simbolos do Sinclair sao validos e os de video inver- 
so sao preparados por SHIFT N e SHIFT M, em vez de N e M, 
Se o espa 90 na tela for insuficiente para o macrocarater, a te- 
cia de preparagao nao surtira efeito. Apos a macroimpressao, 
o pixel estara na condigao “Sem Rastro”, o que alias ocorre 
apos qualquer operagao extraordinaria. Logo, voce ira apre- 
ciar isso. 

RETA 

Reconhe 90 , “reta” e for 9 a de expressao, pois o que aparece 
na tela e mais chegado a caminho de rato do que a reta. Enfim, 
e o que nos permite a baixi'ssima resolugao do nosso equipa- 
mento, que se ha de fazer? E deu trabalho, a desgragada! Ela e 
preparada pela tecia R. A partir dai, o pixel desloca-se sem ras- 
tro nas diregoes horizontal e vertical (teclas 5 a 8), exclusiva- 
mente. No ponto de origem fica um segundo pixel piscante, 
para sua orient agao. Ao ser pressionado SHIFT R, ei-la impavi- 
da e gloriosa na sua pobreza, de um ponto ao outro. NEW LI- 
NE e a tecia que desativa a preparagao da reta. 

CfRCULO 

Esse e melhorzinho, ainda que tambem precario. Coloque o 
pixel na posigao que voce pretende que seja o centra do cfrcu- 
lo e pressione a tecia C,a letra que vai aparecer ira se alternar 
com o pixel. O micro ficara entao esperando que voce tecle 
dois algarismos relativos ao raio da circunferencia, que podera 
variar de 02 a 35. 0 primeiro algarismo e o da dezena e o se- 
gundo da unidade. A letra C sera substitufda pelo primeiro al- 
garismo que por sua vez sera substituido por um carater indica- 
tive do raio, tao logo seja teclado o segundo algarismo. 0 codi- 
go desse carater (vide manual) e igual ao raio mais 28 (se voce 
nao gostou, deixe de fazer cara feia e ignore o que se passa no 
centro da circunferencia). A tecia que desativa a preparagao do 
cfrculo e NEW LINE. 

MANIPULAGAO DOS ARQUIVOS 

A manipulagao dos arquivos e uma das mais versateis fun- 
gQes do Ed-Art. Ela permite que se faga a interface de duas te- 
las, portanto deve ser usada quando se pretender dar continui- 
dade horizontal ou vertical as mesmas. As teclas de acionamen- 
to sao P (de Principal), H (de Horizontal) e V (de Vertical). 
A tecia P apresenta na tela o conteudo do buffer principal (o 
primeiro na memoria). So que, a cada vez que ela e acionada, 
esse conteudo e antes trocado com o que esta no buffer reser- 
va (o segundo na memoria). As teclas HeV provocam na tela 
o rolamento da imagem para a esquerda e para cima,respectiva- 
mente, possibilitando o interfaceamento das duas pelos quatro 
lados. E semelhante a um SCROLL, so que em vez de rolar li- 
nha por linha (coluna por coluna), o rolamento se da de meta- 
de em metade da tela. 

As teclas HeV podem ou nao trocar o conteudo dos buf- 
fers, dependendo da situagao. 0 conteudo que ocupar o qua- 
drante superior esquerdo da tela sera sempre do buffer princi- 
pal. Contudo, nao convem facilitar: antes de efetuar qualquer 
operagao que possa comprometer a integridade do seu traba- 
lho (ex: CLS, SAVE e LOAD de arquivos), estabelega o con- 
teudo correto do buffer principal mediante o acionamento da 
tecia P - ela existe para isso. 

OUTRAS FUN GOES DO MO DO PIXEL 

No modo pixel sao disponiveis. ainda as fungSes abaixo, 
apresentadas na seqiiencia “tecla-mnemonico-efeito”. 

’'GRAPHICS 1 ' - efetua inversao de video 
"LPRINT" - remete imagem da tela para a impre'ssora 
“NEW" - efetua CLS 

’’FUNCTION’' 1 - retorna ao Microbug 
" RETURN “ - retorna direto ao BASIC 

- muda para modo ESCRITA HORIZONTAL 
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SHIFT S 
SHIFT A 

SHIFT NEW LINE- - 
SHIFT Y 

NEW LINE 
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MODO ESCRITA 

0 modo escrita, que pode ser horizontal ou vertical, permi- 
te imprimir todos os simbolos Sinclair em tamanho normal. 

As fungoes disponiveis sao: 

SHIFT 9 "GRAPHICS 

SHIFT 0 - "RUBOUT” 

SHIFT NEW LINE - "FUNCTION 
NEW LINE 

A TECLA NEW LINE 

A mudanga do modo de edigao e efetuada pela tecia NEW 
LINE, obedecendo a seguinte seqiiencia: 

PIXEL ESCRITA HORIZONTAL ^ESCRITA VERTICAL PIXEL . etc. 

0 modo em execugao e identificado pelo cursor piscante 
que se alterna com o carater, ao qual se superpoe. Esse cursor, 
dependendo do caso, pode ser: pixel, H, 0} V ou 52 

AUTO-REPETigAO 

Quase todas as fungSes do comando T sao auto-repetitivas 
(excetuam-se aquelas em que essa propriedade seria inconveni- 
ent e). Ao ser pressionada uma tecia, a fungao e prontamente 
executada e caso voce nao a libere, apos um pequeno tempo de 
espera comega a auto-repetigao em ritmo veloz. Isso, al<5m de 
agilizar o seu trabalho, lhe permitira apreciar alguns efeitos di- 
namicos com a manipulagao de arquivos. 

COMANDOS Se U 

Retornando ao Micro Bug, voce dispora ainda dos coman- 
dos S, U e V (este sera visto mais adiante). 

O comando S (de SAVE) salva em fita o conteudo do buffer ^ 
principal e o comando U carrega, tambem no buffer principal, m 
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QUEDA, ASCENSAO E QUEOA DA BESTA 



Mensagem profstica em 11,8 
Kbytes totalmente em lingua- 
gem de miquina para micro- 
corn putadores compativeis 
com o Sinclair ZX-81. 



REVELAgAO DO ADVENTO IMINENTE DO 
ANTI-CRISTO, DOS CATACLISMAS QUE 0 
PRECEDERAO E DOS MECANISMOS DE 
DOMINApAO E ESCRAVIZApAO OCULTAS 
JA EM A(!A0N0PLANETA. 

Os tempos do fim serao terriveis 
e terrivel sera a nova lei. 



Pedidos acompanhados de cheque nominal de Cr$ 150.000 por 
fita a Carlos Malferrari, Caixa Postal 6752, CEP 01051, Sao Paulo. 
A vends tambem em algumas poucas lojas do Rio e de Sao Paulo. 
Preqo ap6s 30 de abril: equivalente em cruzeiros a doze dblares. 



- passa a imprimir caracteres inversos 

- executa RUBOEJT (horizontal ou vertical) 
retorna ao Microbug (igual ao modo PIXEL! 
muda raodo 
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o que for hdo cm fiia Muita aten^ao no uso desses comandos, 
pens uni erro de arquivo pode apagar inemediavelmcnle uni 
trabalho acabadcj,, $em possibilidade de recuperated Recorra 
sempre i led a P do modo pise] para estabdecer o con ten do 
correto dos buffers. 

Para a event u alidade de carregar no buffer uma gjwa$K> un- 
perfeita, qut mandarin o sj stem a para o espa£o quando mOStra- 
da na tela, o coma n do U ztn o bit 6 dos bytes lidos em Pita. 
I s so equjvaEe a subtrair &4 dos codigos nao cnpriimveis, tor 
nan do-os imprint ive is. Os demais pcntianecem malteiados. Ig- 
nore esie pardgrafo sc voce tijo entendeu nada do que eu quis 
dim* 

ACOPLAMENTO EM UNHA PRINT - COMAN DO V 

Evistem djvcms manciras de acoplar as te]as prod li/ I das 
com os se us program as A mais simples t at raves do oomando 
V que Cria no BASIC uma Sinha PRINT com o conteudo total 
gu paraal do buffer principal. Sua sinUxe e: 

V XXXXYY 

on tie XX XX 6 a mimero da linha que vai set cnada e YY e a 
quant idade de 3 mb as do buffer principal que dcve $er cop] ad a 
(contando de cun a para b&ixo). Dados unprop tios provocam 
mensagens de erro : as mesmas do corttando E do Micro Brig 



(MS n? 33 1 e mats 'TiUUUU”, que e o Ld-Art vaiando se voce 
fizcr YY igual a zero ou maior do que 14. Lembre se de que, 
no modo normal, o Micro Bug interpret a os dados no sulema 
hexadecimal, a menos que haja um S antes.. 

Cube aqui uma die a import ante, para evitar um defeito do 
firmware Sinclair, que ja atrapalhou a vida de muita gente boa 
por at. Quando se esta trabalhando com linhas maiores do que 
a tela, pode ocorrer de uma delas Bear rolandood infinitum na 
TV, obrigando o infetiz progrimador a desligar o micro, Isso 
acontcce por incompatibilidade das vaniveis do sistema LPC c 
LTOP quando, por exemplo, apaga-se a I inha posterior a uma 
dcssas gran donas. Para sua seguran^a e tranquil idade, eric uma 
linha assim: 

XXXX REM NAO ME APAGUE 
onde XXXX e igual at> nurneru da tinha faifdica niais um. 

O defeito pode ocorrer lambent ao retomarmos an BASK’ e 
tcclarmos NEW LINE, ap6s lemtos triado 3 inha s grande s com 
os comandos E c V do Micro Bug Para evil a r a ’"cataslrofe' 4 , 
lecle LIST em ve*. de NEW LINE e eric logo a Itnha de segu- 
ran^a So entau respire irartqiiilo. 

As linhas PRINT criadas pdo comando V podetn perfeita- 
niente scr edit a das c o PRINT substituted por outros toman- 
dos BASK va lidos. como por exemplo LPRTNT ; PRINT AT 
X, Y; LET AS * ;etc. 
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ACOPLAMENTO EM VARIAVEL STRING 

O Micro Bug possui alguns comandos proprios que podem 
tambem ser usados no acoplamento, embora de maneira menos 
direta e bem mais complicada. Dentre esses estate os comandos 
E (MS n9 33) que cria linhas REM de qualquer tamanho e o 
comando O (MS n9 34) que transfere conteudos da memoria 
de um lugar para outro. 0 uso dessas alternativas requer bom 
conhecimento da organiza^ao de memoria do micro e nao o 
recomendamos nem para o preenchimento de variaveis string 
previamente criadas pela instru^ao DIM. Essa terefa e muito 
mais facilmente executada atraves do proprio BASIC, com 
poucas linhas de programagao. Em vez de Bear aqui gastan- 
do inutilmente o nosso escasso latim, vamos a um exemplo 
(rode-o no modo FAST). 

10 LET A$ = ““ 

20 FOR F = 1 TO 22 *32 

30 LET A$ = A$ + CHR$ PEEK (2739 1+F) 

40 NEXT F 
50 STOP 

Isso copia as 22 primeiras linhas do buffer principal na va- 
riavel A$, que pode entao ser impressa a qualquer momento 
no fluxo normal do seu programa, desde que voce jamais tecle 
RUN (rode o programa com GOTO X) nem CLEAR, que apa- 
gam as variaveis. O programinha apresentado como exemplo 
pode e deve ser modificado por voce de acordo com as suas 
conveniences, mas antes entenda-o bem. Repare que o numero 
22 da linha 20 e a quantidade de linhas a ser copiada e que o 
27391 da linha 30 e igual ao enderego inicial do buffer princi- 
pal menos 1 . Apos ser rodado, o programinha pode ser apaga- 
do, mas lembre-se, nada de RUN ou CLEAR. 

ACOPLAMENTO NO ARQUIVO DE IMAGENS DO SISTEMA 

A maneira mais logica e inteligente de se efetuar o acopla- 
mento de uma tela e coloca-la no proprio arquivo de imagens 
do sistema no momento da gravagao do programa em fita. 
Como voce deve ter notado, a maioria dos programas vai e vol- 
ta da fita para o micro, arrastando atras de si quase 1 Kb de en- 
deregos absolutamente vazios! Pois tratemos de ocupa-los com 
o que e chamado de “tela de abertura”, aquela que se apresen- 
ta tao logo o programa seja carregado no micro. £ uma exce- 
lente ideia fazer uma tela padrao, tipo marca registrada, que 
personalize os seus programas. Mas o melhor mesmo nesse tipo 
de acoplamento e que nao aumenta o tamanho dos programas, 
uma vez que a area utilizada esta ali a espera da nossa criativi- 
dade. 
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O acoplamento e bastante simples. Crie, em local estrategi- 
co dentro do seu programa, as linhas abaixo : 

XXXX RAND USR 31210 

YYYY SAVE “nome do seu programa” 

Naturalmente, o Micro Bug deve estar em posigao na me- 
moria do micro. Em seguida, rode o programa BASIC com 
RUN XXXX ou GOTO XXXX, acionando com isso o Micro 
Bug. Uma vez la em cima, voce pode agir calmamente, carre- 
gando o Ed-Art se ele ainda nao estiver em posigao, carregan- 
do e/ ou retocando a tela de abertura, etc. Nessa situagfo, voce 
so n2o deve executar os comandos B, E e V; o resto e valido. 
Quando estiver tudo pronto, com o Ed-Art (no modo pixel do 
comando T) mostrando a tela escolhida, acione o gravador e 
tecle SHIFT Y, fungaio que retoma direto ao BASIC sem pas- 
sar pelo-Micro Bug. O retorno dar-se-a na linha YYYY, execu- 
tando o SAVE com tela e tudo. Um programa assim gravado, 
ao ser carregado, mostra a tela de abertura e sai rodando a par- 
tir da linha seguinte a YYYY. Claro que o fluxo do programa 
nSo devera mais passar pela linha XXXX. 

Essa linha, alias, pode ser omitida se for adotado o seguinte 
procedimento : 

1 9) De alguma forma, descubra o enderego inicial da linha 
YYYY (sera 16509 se for a primeira do programa); 

29.) Acione o Micro Bug atraves do comando direto RAND 
USR 31210; 

39) Com o comando M, troque o conteudo da variavel do 
sistema chamada PXLN, situada nos enderegos 16425/6, pelo 
enderego inicial de YYYY ; 

49) Efetue as operagoes deseritas no processo normal. 

Finalizando, espero ter deixado perfeitamente claro ao ami- 
go leitor a pretensao do Ed- Art GGMI. Ele e apenas um editor 
grafico que ajuda a criar telas, sem a preocupagao de emprega- 
las. Essa tarefa competira ao seu programa. A sua competence 
como programador e que fara com que elas se movimentem 
graciosamente na TV ou fiquem estaticas. Creio que nesse mis- 
ter a sua MICRO SISTEMAS podera emprestar valiosa colabo- 
ragao pelas inumeras dicas e rotinas ja publicadas. Aplique-se, 
pois voce e o dono da pelota; repare que o Ed- Art n2o acompa- 
nha o seu programa, ele fica para tras e nao deixa marcas. E 
isso e muito bom. 

Um forte abrago meu e de GGMI e boas artes com o Ed- Art. 



Ciaudio de Freitas B. Bittencourt £ formado em Engenharia Metalurgica 
e professor de pds-graduagao em Engenharia Nuclear do IME, Instituto 
Militar de Engenharia, no Rio de Janeiro. 
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Nexus 2.600 ja vem 
com Open Access 



A Scopus firnnou acpfdo com 
a Sfl - Teenologi3 *m iolofma- 
lira Lida para inCO'pOHi O »/l 
Mare O-pen Access no micro No 
kul 2 600. UftQado eomefcial- 
nwnift «m derembto r 4 novo mi- 
cro d« 16 bus da Scopus, compa- 
Ii'ybI com o IBM PC/XT, gut subs 
liluuu o Nekus 9.600, agora |d m 
da fibrica com o Open Access, 
am qua iito cusie man caro para 
o usu^no Segundo Paulo de Tsr- 
iO r PirefOf de Marketing da $co- 
pUI, a produced em maiqr escala 
ft P prppfjo acordo com a SPI Ift- 
varam a haratear o custq do Ne- 
iui 2 600, ouSTandn ha>* 900 
ORTN. 

□ Open Access pOilui senmO' 



duiot eduor de ttxio, ptjnilhg 
eiftTrbme*, banco dc dados, eomu- 
mcacJo, grdkai e agenda O Nf- 
kut 2600 !?m memdua de 704 
Kb de HAM. nelocirtade de pro- 
cettunwn ip dc 8 MH'i, interface 
paifriera t anincrona nt pix* do 
n sterna. cba^am*mo per tec li- 
do, ft arena arft 4 drives upo Him. 
Ainda ftilft and. a Scopus pretend* 
line*' diwnOl kill para ft* pan t5o 
de memd r Hi, sendOP pnnWirO um 
back- up Winchester em fUa d* 20 
Mb. Com o novo eguipamento, a 
empr«3 «r«li U que tetA candi- 
g6ftS p *t& dfttflf d* 25% ft 3Q% do 
m*rcadO 49 XT 1 . emmsdo ®m 15 
mil mkiuinai, d# 35 fabnearn« 
difftrentes, em 1986. 



TK 3000 lie da Mien digital 



Ainda no segundo trimestrin de 
19R6. a Microdtgital culocard nP 
mercada as primal ras umdudes dP 
TK3D0G He. Apresentado na ul- 
tima Feira de Informatics, am Sad 
Paulo, o novo micro, compatiwl 
com 0 Apple tie "Enhanced" tem 
microprocessador S5C02; memd- 
ti* de 64 Kb de RAM, *xpaiufwl 
art t Mb; podendo roddr soft- 
wares corns 0 Apple Works ou 
So perCalc, dislribu idas pula Com- 
pucenter InformiUca, □ pucOEGS 
compativais pom CP^M 

O TK30Q0 He "Enhanced'' 
opera em rede, permilft a ligjgio 
acre titwnu Ciiandsto e Videcnex- 
to, podendo ser ligiido H gn .si goer 
tipo de impressora Ou plotter exii- 
EftfiTftS no me re ado , e a equipu- 
mftntot dft compossc^o tipogrili- 

E3B. 

A outra rovi trade da MicrOdi- 




0 TH3000 it* 



flrtfti, ,i impreworft TK Printer, n§u 
lftm prnvirfd de lengamento. mas 
a ligbl-pcn para g TK9GX, j.i citj 
na* lorn, cuuando osree de Ci $ 
460 mil 



Estojo para drive 



A Mscrorio, espeoaiizada ni romiro jt^ac.So de edmput adores, 
ft copfeccid de caboj. e«i eolocandci no mere ado um estgjo coin 
tom* pftrfi privet de 5 1 4" e B" o press doconjuntp pa'ft dM*t 
de 5 1 f4" e 11 Oft T hr, e pftra 01 drives de 3" pode »r obudo tob 
consulta. A MicrPriP tiC-ft rtft AlmEft Tftfliwdjd, 66 ^hjpP 214 
2 IB. Largo do Machado. H>0 P(f Janeirp-H J. i*E;{02H 265-8294 



MC 5000 XT, da CCE 



A CCE 9slJ CfwntrOdEiwOo a 
seu novo equipamento MC 5000XT 
d elite fevereiro. Com uma prDdu- 
Cls> inicial da 2GG mAqusnas pur 
miJs, 0 5000XT apresenta duaS 
configuracdftt. Umi commemima 
rm'nima de 256 Kb dft RAM. dual 
urudades slim da 5 1/4 . interfa- 
ce paralela, e duas seriati, fom# 
de aiimeru^so de 150 W, piaca 
de video calorrda, mOfliTOr de f&s- 
fora verde. relPgiO-calftridilnQ, 
com Deter ia recarreqavL’i ft prr^o 



para revtmda dft 580 ORTM A 
outra configuracab pmsus 512 Kb 
dft mftmOma RAM. e ym Winches- 
ter de 10 Mb. cuilando para o r e - 
vensSftdor 10?8 ORTN, 

Sftgundo Jofo Smencourt, 
Cftrentft dft Marhftrmq da Dsvisao 
de InfgrmilEicft. n CCE dew? cold- 
car novo* cpuiswrriftntos ns mer- 
CftPO ft pftriir dft maid, [ados na 
Arfta dft rhiCrOS mail potenlei para 
atividftrtes profsssion.iii 




Livros para MSX 



A MSX informal tea. empress 
gauhsEa espec ial lead a na comer- 
cialuacao de produtos para a lr 
nha MSX, ja oferece dois livros 
iQtglmftnte elaborados por teeni- 
est bratiiftiros Basic Avancado 
oara 0 MSX", ft "Gglecw de Pro- 
para MSX" Este uliimo, 
da Editors Aieph, podc ser adqui- 
ridu juntamanle com ur*ia f« ta 
contendo todas os seus prugro 
mas. A fita tamtam 4 vendida se 
paradamente, e custa 2 OR TIM. 
Outra f»t» que pode ser adquirida 
no iocai 6 J 'Pftisaqem do Ha I ley", 
oode estao mdicadas as COOrde- 
nadas para descobnr a posicau do 

A Informdlica 

A proligica montOU yma sqm- 
pe especial 1 rada para O gtendi- 
monto 3 a^encias de p ropaga nda , 
devido ao sueesso que vem obtan- 
do com a S1CAP — SUEema Inte- 
(|rado de Cent role de ArjflncUS de 
Pu b-l ici dark? Duranle a semimirio 
sob re "O Computerior oa Propa- 
ganda". promdvrdo pftle ABAC, 
Sense, cam apoio da Rede GI 0 I 50 . 
tjlobolec e jarnal "Folba tie SSo 
Paulo", as agendas Norton, C8P, 
ft Seiembro, tlemonstraram a efi- 
dSoCia do SICAP, enfftlizando 
que ele peimiie a gftrftC^O de re- 
cursos para aumentar a rfidnlS ft 
a Igc r at iv> daefe das agftnetas de pu 
bljcidsde 



c omer a no eftg em relacab aos chu- 
IfO* euros V4m acompanliada 
por Eftheiftt coin dados oomg iatitg- 
de ft longitude e um m-ipa celeste, 

A MSX fiea na Rue Caiubi, 567; 
lei : loin 6/2-D/30. SJo Pjulo. 

E pdr faiar em MSX, |ft emSIft 
em San Eos um clubft para OS u mi- 
nos desla linha. 0 rl Ciubft dft 
Usu arras de MSX"' tem um: infor 
marivo mensal e mantftm contato 
com t> MSX Users Group, da In- 
glaEftrra. Os interessados podem 
esc 1 ever para FAbio Gastello, na 
Rud Pinto, G2 r SooiLjieirao, 

CEP 11055, Santos - Paolo. 

na Pubiicukide 

0 si sterna compdftm-Sft dft Ir'Si 
partes, gerencial, adminislrativu ft 
dft mfdi. 0 , e straps de um contra 
Ift dft 9 r Affixes apresenta mapas diJ 
nos sobre o andamemo dos vft- 
nos seta res da ag^nCia Uma dft 
suas caraciEn'sUcis ft fbrneefti Ea- 
betas com per^t ivas entre emisso- 
rfts ft progrfimiKSes, cJassif icagio 
dos programs* por CuS. 10 . genero 
p faixa etftria; GRP's [jn 1 pracn, 
pmissora ou pegs; alftm dft malft 
dirfti 0 , fotha de pagamento. ft rft- 
latirios gerencrais. O tftlftfone quft 
a Frolbgica coiocou J diSpOSiC^O 
dos mleressados no SlCAP ft 
(0111 543-1205. 



FI NAN SIS 



A Mftditiilla IflfprrtljMCa ft 3 
5eC Srslemas e ConsullOna dMftni- 
valverani um sistema mlegrado 
0.1 m Autumac^o de Conetoras e 
0'jinE.HJidnras dp Valores: d fl* 
MANSIS, um s istema c onversac 1 o ■ 
nai compos lo pur diversos mddu- 
(os de software, com capac'dadft 
para aiuar no open market ou na 
Bofsa de Vdforfri. al^m dft conrrci- 



lar coma? c o' rentes e admiruilrftr 
car 1ft 1 -at El; pode ser processadO 
Canto nos min icom put adores 

M2001 ft M3001 como no sutler 
micro M 1 001 , 4a Medidata. Ma 10 - 
res mtormiic^ftS (KKlecrv «r Obn- 
das com luu Oscar Danidi, Ge- 
rftntft de Suporle de Marketing da 
MedidaEa. pftlo Eftt i021l 542- 
3737. 



Micro Festival 86 



Q V Encontro Brasileira de 
Micro unformatted seia realizado 
dft 19 a 22 de mar^o. no Centro 
de Ccmvencoes do Hotel Nacio 
nal, ng Rio rfe Janeiro. 

Os Org 3 fli?iirlorfis do evento es- 
pft-ram con tar com mgu de cin- 



quema expojitorftt. que mostra- 
r3o os langamenlOs am micros cd' 
mere iars e pessoats, perilftricDS e 
softwares, r ambftm haver ft slantii 
reseruados para a ftreu dc yvsl.i 
^ao de servigos. 
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Planilha eletronica e software grailco 



A ftmpresai Vista Ttfcnolbgia, 
distribuidora axclusiva da F-'Sl — 

Paperback Software International, 
inrciou a comarc i-abzag ab do VP- 
Planner, urn software de planilha 
eletrflnica para mreroit IBM-PC/ 

XT/ AT. 100% compalivfll com o 
Lotus 1-2-3. O VP-Planner perm I 
Ee o armazenamentb automatico 
de dados em diversas planilhas de 
maneira retacional, straw#* de um 
'banco de dados multidimensio- 
nal", Trobaiha com arquivo) em 
dBase If C III, scm mjcassidade de 
arquivas intarmadiiridi, tr am sua 
versan traduzida e adapTada para 
o portugu#*, com manual e soft- 

Acessdrios Commodore 

A Earto Compuradones esi# larMpando dots no- 
VOE acessdrios pare os microcompuiadores da I m ha 
Camm-adore. O primciro # uiti suprcssor de picos 
de tensJo e transient's 13,5 GRTIVf. cam capaciba- 
de para proteygr at# 400 W de equipamentni e tem- 
po de respOSlu de 25 nanasegundas. Q autrp # uma 
interface RS-232C 16,0 GRTN) e a seu respective* 
software emuladc-r 12,D QRTNf. 

Al#m destes acassbriqs, a Earto tamhgm possui 
uma grande variedade de softwares a manual*, pr&s- 
tunda amda assistencie ttfemea para OS equipamen 
tos e perrf^riens de I inha Commodore, A Bart5 fica 
na Av. N i Ip Peganha, 50 - said 2407, Centro. Rio 
de Janeiro-RJ. 0 talefono & 1021) 262-1213. 



ne$&a aplifcacad, permite escolfia 
de 5 t>pos de gr#ficas, rrabalhan- 
db com programs* comn dBase. 
Visicalc, VP-Planner, Lotus 1 -2-3. 
Symphony e outr«. 0 Sign Mas- 
ter e la bora t Mulct, tan tos. qua- 
dras e tadetas em di versos forma- 
tes e tamanhos. para graficos de 
altu qualidade; e com Q Digram- 
Master e possivel a livre crracSo de 
diagramas e logotipos, »l#m (to Or- 
ganogrsmas e do catalog* dispum"- 
vel com mai* de 100 clementus 
grificoi 0 endereco da Vista Tec- 
nolOyid L' Av. drug. Faria Lima, 
1.620. c|to. 71. tel. 1011) 210- 
9B33, Sao Paula. 



Mudan^as na Stratus 

A Stratus, fabrreante de teleimpressaras e 
impressoras para camputadores, mu dug de 
com role. A partir de agora, a empresa patw a 
perlencer a Stielefranica, que antas (Jet in ha 
50% da empresa, e passa aqora a detyr 100%. 

A nova adminismacffo pretend* invests no 
desenucrivimemo e implementaciiio ae seus 
produfos, eitd'ndo na momenta na axpectali- 
va de hcmblbyiigao da seu mats nova eqqipa- 
menid. O terminal leleimpressor mode la 360- 

Pdra completar as mudangas, 9 empress 
transfer iu-sp de endereep, para a Av. Itabea, 
2068, Bansucessa, Rio de Juneiro-R J, til,; 
(021 | 260-0312- 



ware cam padrSp de compndos 
em ingles, CMSta 50 QRTN. Q* 
comput&dores XT 2002. da Mi- 
tre tee. ji virac com o VP-Planner, 
sem despesas adicionais para a 
usuano, devido a acordo firmado 
entre as duas empresas . 

A Vista dktnbuii tamtam os 
software grificos desenvolvidos 
pela Decision Resources, dus E UA ( 
especialmerte a I in ha Master, des- 
tinada aas guanas de IBMi-PC/ 
XT /AT e campatfvais, que con- 
grega Tres softwares COm S liimf- 
lias de tetras. 94 simbalos e 6 ca- 
nes 0 Chart -Master, detentor de 
30% do mercado norte-americano 



Manutengao 
via tekfone 

Os usuinos de mini e micro- 
computgdores da Labo Enatrfim- 
ca rijsp&em de mais um -servreo de 
assistencia t^cnica por telefane, o 
CAfj -■ Centro de Aiendimemo 
Nacianal , que funciona de Sotfun- 
da a Sribado, das 6:00 hs as 18.DQ 
hs. 

Os usuries que neoessitarem 
do atendimento do CAN nan p 3 - 
garao qualqupr Taxa, a na"o sfr que 
precisem de assistant i& nun prazo 
menor do que o estipulado pela 
empreta. Para atender cam rapi- 
dez aos chamadas, a Labq cono 
com 36 postos de manutenc^o es- 
pa»hados pelo pal’s, O telefane da 
CAN# 1011) 533-5681. 

Ma [is 

assistencia 

Agarg os uSudriot de impresso- 
rflS Grafm pOdem contar lamb#m 
com a rede de Assest^ncia T #cnica 
da Olivetti da Brasil. Com essa 
medida. □ ruinnero de postos de 
atendimento t^cnico aumentou 
par a 45. 

A listu dos novas endereyos 
pade ser saliertada, par carts, .5 
Scritte Etetronica, na Alameda 
Amazonas, 832, A I ph avilJfr. CEP 
06400, Baruerr. S5o Paulo. 



Compasso 

de 

espera 



A indu stria de infarmdtiea vi- 
ve. desde o final de S5, momento 
rte expectafiua deuido A assinatu- 
ra, pelo Presideme Sarney. de dou 
decretos-lei que promoveram in- 
eentivos a essa atividade. Os bent! 
ficias ,j eram previstas pela lei 
7232. comedo sua viabilizagaa es- 
barrau na naa-apravacao do Pla- 
nin pelo Senarto. Por um dos de- 



cretos. a partir dene ano quaiquer 
empicsu poderd deduzir do seu 
imposio de rendu devido at# 1%, 
aplicartdo esse valor na campra Pe 
■LX.UPS de empresas nacianais de 
irtfurm#thca. 

Apesar dista, paucas acred I - 
tam que as empresas pnssam ob- 
ter — a curto prazo — iais vanta- 
ge* j. ^ o caso do Dr, Daicio Aj- 



tolpho, da Robe rip Oreyfuw Au- 
di tores [ ndependentas. "Somente 
em setembro. quando as grald^S 
empresas. com faturamentd adma 
de 40 mil ORTN, ap« esentam seus 
balances do pnme*ro semestre e 
procoram ooedcs para aphCdr SOuS 
excedentes. & que se ter# urra no- 
Cfo de comp as medidas atmgiram 
o mercado de eapifeis"- 



Novidades do Videotexto 



A Tale bras invest ir# CrS 360 
bilhpes no Projeto Vi-dcoiekto 
em 19B6, 200 dos qu-ais cube 
A Teiesp e stfri'o utilizados na ex- 
Uvinsuo da Central d-o si sterna, 
co-rr dots navos computed ores ja 
encomendados na F rang a. e sis- 

tema nacional, que esfS sendo 
implantado pela RGM, al#m da 
aquisicao de 3.500 termjnais de- 
dicados e aperfeicoemenxo dos 
services especiais. A central, 
hojtt Cbm Capocidade de assumir 
mals 4 mil terminals, ao T#rmina 
da processa de expansao, ence- 
rado coma um grande desafio 
tecnolbgicQ, terd condiedes de 
suportar 43 mil tentunais. 

□ s novos caminhot para □ 
VibeDtexto forem ap resen tados 
pela T ecesp ISOS fornecedores de 
services do prbj&to, em reuniao 
noordenadii pela diretar do De- 
bar tamflnto. eng9 Ari Nuzem- 
baum. Entre as novas e Sir# t^tfi us 
da Telesp est# o iratamunto di- 
leranciado para OS Mrvicbs ge- 



rais, acessadas pelas terminals 
residencies, e os servigos espe- 
cial izarios, acessadas pelas sn- 

prusas, e o mcentivo a liaacao de 
micros ao sistema, tendo-sn em 
vista de que at# □ final de 1B86 
dever# haver cerca de 500 mil 
U audios de micros no par's. 
Al#m dos micros TRS-SO, f# lo- 
ram hamalDgados pela Telesp 
OS equrpamuntbs das bnhas 
Apple e IBM-AC, e em breve de- 
verio estar no mercado os das li- 
ntias Sinclair e M5X, 

As previsaes mans canserva- 
doras sad de que em 1990 o jis- 
iema tenha 300 mil uu^rios de 
Hindoos serais, como jornaJ ele- 
trdnico, lazur, logos, teles hop 
ping, I stir tele Ionic a eletrdmea 
(que est# sendo implaniada den- 
Iro da prdpria Telesp como ex- 
periential e senricoi banc^nos. 
0 que evidenaa a ntcessidade 
de pOrminentt expuns^O teenb- 
ligiba e de sann^Os. 



Cur sos & Seminarws 



SF A Servimac, Sao Faulo, 
proyrumou para este mds semi 
ndnos sobre Lotus 1-2-3, dBase 
II e Warstar. Maioras infarma- 
Cfles pela tel; (01 If 223-151 1 
RJ/SP — A SCI (tlSrl realizandc 
dais Ciihtdl no Rib e em Sao 
Paulo, No Rio oi cursos »do 
tub re Comunicacic de Dados 
cam Micros e E la mem os para 
Avalia^da a Uiihzafio dt Mi- 
cros. Ja am Sep Paulo, o irm* 
do curio Ser#: Oi Microcompula- 
4 ores como Fordminttl do 
Centro da Inlormifio. Maiores 
detalhes pel os lets.: 1021) 294 
743B ou 10111 289-0099. 

SP - D EPCI est# oferecendo 
cursos para as tan has Apple e PC. 
Enire trt primenoS estab cor ms 
de IntrodugSo a MicrDinform#- 
tjea. dBase II, Introduced ao 
Apple, Jane la MAgica 2. SPA e 
Supervisicaic. Para os osudnos 
de PCt haver# OS cutsos Inlra 
dugJb ao 1BM-PC: Worstar; Ld- 
lus 1-2-3; IntroducJo jb Sym- 



phony; Progranmaneto am dBa- 
se Ml e MS-DOS- O telefane do 
SPCI # (01 If 653-0355 

KP - OCanlro Educacional itau- 
tnc promov* CurtOS diumoi vo- 
hre a linh* FCxI, micro-l-7000e 
linpulgeni BASIC e Cobol, cam 
dp^£b de divarsas datai de inf- 
ciu. InforimaqSei pel os tels,! 
10113 282-2557 ou 282-7103, 

RJ - 0 Inttituto de Tecnoiogia 
CRT vai imciar dra 10 de mar- 
go Cursrjis d4r fdrmxab de ana 
jisia de s^stemas e proyramador, 
com duraqoo de traze e seis mt- 
ses, respect ivamenfe. O ORT fi- 
ca na Rua Dona Mariana 213, 
CEP 222S0, rel -- (0211 2S6-7S42, 
Goiafoqo 

RJ - Em merge, serSo pramovi- 
dos pelo I BAM oi curios Anih 
sts Campgrahva de Mjcracom- 
pLiiadorel (de 12 a 14) a Reties 
de ComunicacSo da Dados Irfe 
26 a 28). Meiores infarmacoes 
pela tel,; 1021) 266-6622. 



MICRO SlSTEMAS, marca/86 
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Programas 
para MSX 

Depon do sueewo do Hot 8ii, 
a empress EpC(W - do grupo Wa- 
chline — pretend* COlOCif AO mer- 
cado pels menoi Hit novo* jpli- 
wares pot mtfs. JA m$o ditiXifi i- 
veis o MSX Word e it pUrilh* 
MSX. amtxK im fils cjitfrt 0 
pnmeiro edita cartas 6 itoftiWd’ 
IQi am geral. enquanter que o *(■ 
gund-o possibiliia realnar orti' 
nwn tos dom^iiw e cilculot de 
Cut! OS 0* programas podem set 
eoconl r jflOi na Msgnuitaia I rsfcar ■ 
mStica IT*I 10 Mi 255^76 &3e no 
Vapgm, am SSd Paulo 

6. n SCAB 

Aii 31 rft matgo ssrio acenas 
propositi* de p-.il extras para p 69 
Semi nano de CormindO Nu fran- 
co, a realirar-se «n Porto Alegre, 
em 16 de sbrkl, o* irtfliressados 
em terns* como CAQ/CAM, Hto- 
bdtica, Comaftdo Num^rico ou 
Software na Au tom* ( i TdcSo In- 
dustrial cbevsrao enviar os rfriumoi 
para u Sobracom — Sacied-ickr 
Brasil Bite de Comendq Numdrigo. 
£ rua Gen Jordim, 645, corij. 91, 
CEP 01223, em £Ao P»UlO. 



Centro 

Educational 

A Digital Equipment inau- 
giurou f ecpntempnle q teu 
Centro EdutKiongl per a t 
America do Sul, com qua* 
umdade* dt irtingmtnlo 
vffli no Bio de Janeiro e ou 
ita em SJo Paulo. Alravtt do 
Centro. * Digital niofmctf 
#oi unit cirenrei c usuanos, 
tremamento O'lpccialiiedo a 
nfvd Ifcmcu t Qtiraitl. No 

seguodO seme-str* d* 66. a 
empreu pretend* amphar 
kiA Area de atuagSo promo- 
vendd CutfOl aberldi A CO- 
murndad* d* mferm4tiC9. *o- 
bre Tecnologia de Banco de 
□ado*. Bede de Cornputado- 
r» a um prognma pipKM 
na Area de IntpliEjflTCpa Artif i 

(U. 

No Rio 6* Janeiro, o Can- 
tro EduexionH vai fgncio- 
nar na Av President* Wi I ion, 
231/139 and.ir, teiefone- 
10211 267-6756. Em Sto Pau- 
lo, ficarA na Av, 9 de Julho„ 
3741 , Mielone; £01 U 200- 
4665, 



Conpart 

em 

expansao 

A Conpart - einpit&a tarioca 
que fabnca unidade* Lie fits mag 
ngtiqa para bacX-up - parddpa 
no momenta do QIC - Quarter 
Inch Cad ridge, grupo surgido em 
1083, no* EDA, e rn»e retire em- 
prsut fabritantet para a defmi- 
eao de rormas ttenrcat, Como |W- 
df&M de gravacao e interface, t O 
grstudo de novo* produtO* De 
glho no que exisle de mait atuil 
11 lore, a Conpart ir£ inveslir em 
tor rip de US$ 2 milhdes no proje- 
to e dewnvolviimento da uni-dade 
BKP-120, euio langamemo esta 
previsio para 0 iegundo Kmeiire 
de 86. Com este novo pedfgrico, 
a empresa pretende conquiitaf 
90% do mercado de fitas. 

Atualmente, a Conpart produl 
mensal merle 150 umdades da 
8KP-20 H O a 60 Mb) e BKP-60 
I 30 a 1 20 Mb I . -JiTih-as de sua I inha 
de tartucttos tk 1/4" utilizarido 
tecnalDgia da nOrte-americara Ci- 
pher Data Products. Mg* a empre- 
3.1 nspera expand-ir baslante tffl 
86 jegyndo o Diretor Tfcnrcfl- 
Antd-mo Ceraldfts Romalo, para 
os micro* t»pO PC-XT com arqui 
VD5 supjeriuras a 10 Mb. ji 5? |Qfra 
interessantE o bocX-Up de Win- 
cheticr em fits. Haja mercad-0 







M) 3000 

Dias arles do car naval a No- 
vadaia apreserloo o ND 3000, 
micro de 16 bits, compativel 
com o PCXT da 48M e atrav^i 
de sdllware com 0 lermmal ND 
2000 da emprew Q ND 3000 

tambem pode ser mtegrjdo no 
mini ND86. permUmdd a Gpem- 
igao simullanea de alA 32 eitucGei 
de tfahatbo. 

Eouioado com processador 
In t el SOBS e co -prciceisddor ar limA- 
tFdo Intel 8087 £opcionaii, o 
NO 3000 pO*sm rnemfrrifl HAM 
de at£ 832 Klb, rnemdna ROM 
de ar4 40 Kb. oita Slots para pie 
cas de ex parsSo e um slot para 
expansaa de canais DMA; contro- 
lador de atE quatrq umdades de 
disco flexfval de § 1/4", 8 rr au 
fits ST reamer e sinria unidades 
de disco Winchester de 5. 10, 20. 
Si ou 70 Mb cada. 



Estao chegando os ATs. 

Mu AOS far ri cartes u preparam para ingraSsar no merCiKlu doi IBM 
PCvATs. 0 AT da Scopus T oc rmlogi a , uind* sem norne oficiol, seiA 
comeruuliiadct a patfir de nulhp/agoito. Com fildiofie modular, a 
exempla do Nexus 2 600, pemniiirA bo utuArio oscolhar desda memdria 
csrrrai ate disco r/flido de vAries capacidade* 110, 20 Du maul, alrav*( 
de Xit* de expan-sfo. O mOdflO bAsico, com 512 Kb au na mAximo 
1 Mb de RAM, cusfarA Bm IPrrP de 2000 a 2500 QRTN, 0 mdximo de 
axpansAo premia Ms 3 Mh para aplica^8es multiuiuAno e multitareia 
ParAm, a ScPpu* aslA esiudando 9 ppsiibilidBde da fdrnscer aifi-da 
maiorE-s eondicOes da expan bJo de menidrii. 

A Softec, que inaugur* sua nOv* fAbnca em fin de mer^g, praten-de 
ap-i eseniar na ocasiSo a shu AT, cam prpducAo intcul de 30 unidades ■’ 
mAt. A So f s ec prev^ 0 langamanlO, emda #tte 400 , de um model a 
pOrtitil, com 512 Kb, flpp Ilirn, um WihCbettet e monilot em fdilora 
verda ou a cores A 4 vend as ser So elatuada* direiameni# ptb empresa. 
por alguns revardedorfi* eiCOlhido* e np nwreoda OEM 



Nova Informatka 

A Nova I nfqrmStica camunica que tOdOS Oi sens apiicaiiwas, das Sro*i 
do . 11 Iml mjt r BpSa- publica e privada, rm t alii .+gora lamb^m diiponi'vin* 
par4 ot computadare* de 15 bits, compel i' veil com o IBM PC/ XT.- A 1 
Os sistamas dft Area prtvade saa os KgUmlfll SISCO N fSi sterna de 
Cantabilidadel ; SlSCOR [Sisipma de CarregSo MonetAria do Ealangoi; 
SISFAT ISislema de Faturamentol ; SlSGEP (Sistuma de Getrfo de Pa*- 
soall; SISGEST ( 5, sterna de GestaP de Ettoquefj SlSLlF [Ststeme de 
Livros Fiscaisl ; e SISORC (Siftema de Orcamentof, 

Para os interessadoS, 0 eoderecd Nova I nfotmAtic* A Ay. Marachal 
C£m*ra, 160/614 - Rio de Janeiro - RJ. OEP 20020. Telel one :( 02 1 i 
262 0846 ■ 
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Programs e Jogos variados para todas as linhas e 
marc as de Computadores 

VIDEOS 



Curso de ingles em video cassete * Tel<Jo * Su porte 
para TV • Transcodificaqlo para todo^ os sistemas * 
Frtas VHS ‘ 8ETA-U-MATIC e para limpeza de cabe<;a# 
Batenas para 9 e 8 h$. ■ lluminadcxes • CabOS de 
extensdo para CBmaras # Bo teas para Om erase Videos 



EQUIPAMENTGS 



Micros das lmha$: Sinclair# TRS-80# CCE • Unitron# 
Disrnac * TK 2000 II * TK 85 • Exato Pro # Impressoras 
Modem # Etc 



SUPRIMENTOS 



Penf£riCOS * Disketes * Fitas • Drives * Places de 
ExpansSo # Interfaces • Form u I Sri o Continuo# Cabos 
• Arquivos para Disketes * Etc. 



SOFTWARE 



Nas Jojas 8rasif Trade Center, voc£ tamb6m 
encontra videogame, cartucho com jogos, 
som, telefbnia, etc., das melhores marcas. 



VISITE UMADENOSSAS 
LOJAS E COMPROVE O 
QUE ANUNCIAMOS 



Matrix; Av, Epitacio Pessoa. 280 
Jpanema-RJ — Tels.: 259-1 299/259-1499 



Filiais: Rua da Assembleia, 10 — Loja S-112 
Centro-RJ — Tel,: 222-5343 



Rua Silva Vale, 416 — Cavalcante-RJ 
Tels,: 592-3047/592-3098 



Rua Lopes Trovao, 134/Sala 201 
Niter6i-RJ — Tel.: 710-3659 



OFERTA VALID A COM A APRESENTA^AO DESTE ANUNCIO 



Rua Conde de Bonfim, 229 — 
Tijuca-RJ — Tel.: 284-2031 



Loja A 



SERUIQO EXPRESSO flEMETEMOS PARA TO 00 0 BRASIL 



BRASILTRADE CENTER 

Comercio, Industrie e Participa^des S.A. 

COMPUTER SHOPPING 



Mesas 

p 3 T9 2.099.000 

Microcomputadores 

Ftibftfdcao prop*' i a # Curtis drscretas • Desenho moOcrno 



BTC-05 M 



BTC-03 M 



Cr$ 1.559.000 



Cr$ .319.000 



BTC-02 M 



Cr$ 1.549.000 



BTC-04 M 
0 BTC-01 iwjj 

Cr$ 1.129.000 





Na primeira pane, classificamos os ataques usados pel us piratas. 
Agora, mudando de lado. vamos explorer os recursos da defesa. 
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Copia 
de programas: 

defesa 

Pierre Lave He 



P or mais perfeilo que se]a o 
aciquc. a defesa sempre iem la 
scus irunfos, O maior e esiar 
sempre preparado c nio contlar 
mocenteirienie no rcspcito a pa lavra da- 
da on uacado por cscnto Naffres in- 
leiras comet erani esse Giro e algunias 
software -houses amda estSo neste esta- 
gio. 

No nosso case, todo usuario deve ser 
don side radu um pi rata cm potential; 
su as eventuais devcm ser previa 

c a s_ e o programs prepar&do para res- 
ponder adcquiidnimentc- 

Ncssa segundj pane, vamos classify 
car os varies recursos na defesa e con* 
chiir com uma solu^ffo que, por set boa 
denials, n5o serii do agradu de Indus. . . 

Conhecimento do terreno A equipe 
que fa/ um programs geralmente n£o 
e com post a apcnai put pi incipi antes. 
Todos ji foram tent ados a set piratas 
um dia e COnhcCcm os I tin lies do ataque. 
O micro a icr usado nSo deve ter segre* 
dos para de$: j final, o produto. para set 
uiclhor e rnais vcloZ que o rortcorrente, 
tern de sc aprovenar melhor dos recur* 
so-s ja ex i st elites., Pclo menus um mem- 
hro da equip* deve conhecer a fun do a 
linguagem morn adorn do equipamento 



e ficai responsive] pel a produce de 
um pacote diflcultando as a^6cs preda- 
tdriiafl; ser mocentc nffo e desculpa 

Forma taeoes ex olios Se o programs 

puder set usado mim disco dcdicado, 
seen atrapalhar o usuirio, esse tolerari 
uma formata^So di ft rente Mas. sc. por 
outro I a do, o uaidrio quisei junta r vi- 
nos programas num disco so (para faci- 
litar a sua vida e evitar de cansar unids- 
des dc disco com perpdiuostroea-trocas) 
ou simplesmertte sc o produto fci fer 
to lisando a penas 35 uilhas numa liiiica 
face, quando o usuirio dispuscr dc 
drives dc 80 irilhas e dupla face, ent3o 
ek pmeurara roeios dc contornar (.a is 
limilafOes. Islo pode ser fcilu, por 
exemplc, ai raves da formal a t;ao de um 
disco em face dupla e c-dpia. usando-se 
um dos programas espccia It/a dos. men- 
cionados anterior incmc, a penas a parle 
util inclusive a formaia^So especial 
— do disco original. 

Por exenrtplo, certos programas usam 
um Booi sirup especial, o qual le um 
carregador inicial gravado em irilhas 
com cabegalhos dc setor e sornas de 
controls pro posit a linen te mvaEtdas. Um 
programs de copia cega se rceusaria a 



copiai eSEcs ciros aparenies, mas o car- 
tegador coniem um algorilmo prdpno 
para venficar j jntegrjdade dos dados 
- Lgnorando o aviso ncgaiivo do contro- 
lador de discos — , pa&sando o controk 
a esse canegador inicial. bssc, por sua 
vcz, repet e com um cairegador secundS* 
no,, desta vez empregando mais recur* 
sos, ja que o carregador inicial n3o tem. 
os i unites de tamanho do Boot strap, 
a quai ira huscar o verdadeiro progra* 
ma. . . 

A menos que se domine ab sol u ta- 
me nte o assunto, sendo Capaz dc mistu- 
rar na mesma pista, de mandra con Ha- 
vel, treclios nio format ados, formatados 
cm den si da de simples, em densidade 
dupla, com cabe^alhos c tamanhos bem 
esiranhos etc, . . c ter sdetas rcalmcntc 
originals a respeito, cal caminhjo n5o 
vai muito longe devido a sortsiica^so 
dos programas dc copia fisica. 

T esies de consi stenc ia S >ada a prem issa 

de que o usuirio vai conseguir copia r, 
lentaremos btoquear ainda mai$ o uso 
indevidci- Quando o usujfto cluma o 
programs, ele dispara uma cadcia dc 
aconiecimentos cujo controls esli, a 
princi'pio, com ele, mas que acabj na 
mao do programs, o qual pode: 
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* verifkar n espanfO Jc memo r in vis live L 
para ter cgrteza lIc ter side diarnadu 
pci u bom sisicrtu operational. com o 
lamatiho ccrto de memoria, sem pro* 
graminha espilo cscondido la no fun. 
Uma boa precau^Jo e Inn par nest a hora 
todas as memories que nao pertenccm 
nem ao sislema ncm ao prognima; uma 
precaufSo complementer c provocar 
uma quasi partida a frio do sisterrta, mas 
de tal mancira que a cripia novinha cm 
folha do sistema operational entregue o 
cont role ao programs e nJo ao irsuirio. 

* verificar o diretdrio do disco, gjeiaJ- 
mente ainda erii mcmdiia na parte que 
InLcressL, para venflcar sc o programs 
esta vLndo das trilhas certas. Se for 
memdo. fui altera do. 

* sc amove nfkar, dc van as manciras. 
para ter cert eta que nJo foi allerado in- 
t eminent e, 

* sc esses I calcs forem satisfalorios, 
com pi cut a carga do programs c Li be rat 
as rot ina s criplografidas ( ver ad i ante), 

* esses testes nSo devern ser feitos so- 
me nle no infcio da execute, mas repe- 
tidos a cada etstrada e saida. Uma boa 
hora para isso e a prove it ar a abertura c 
o I'echairicnto dc arqtiivos do usual io 
para dar uma olhada no dircldrio como 
um todo, 

Aliera^ao do mcio mapetko - □ pro* 
grama sen do gravida cm l iilhas conhc- 



"Uma boa defesa 
e criar manuais 
grossos, 

obrigando a uma 
copia integral da 
documentagao do 
programs para 
que se possa usa-lo . " 

ctdas, c passive! reservar no meio del as 
um setor especifico que, apos a grava- 
^ilo, recehera um ligeiro toque de laser 
para ser proposita Entente estragado. Du- 
rante a cxecu^ao, o programs grava uma 
informal COnhecida neste sc I or e, au 
ler dc volia. pode verifiear a cxlenaffo 
dos da nos. Um dano major ou mcnor 
que Um Ccrto patamar |cu fora da posi- 
srao esperada no setor) desperla descon- 
Hanga. 1- necessario usar um cquipamen- 
to especial com um laser de foco bem 



pequeno, intimamenic ligado ao cabe- 
Cole dc cscrila, na hora da geraflo do 
disco, Tal equipamento c de obtcn^lo 
djfiCil pelns pi rat as. 

Esta proteflo ctn si n 3 o c o bast ante: 
se o sistenta operational foi a Iter ado, ele 
pode dar ao programs a ilusSo dc que 
scus pe didos de enlrada c saida. ncste 
setor especifico, agem do modo previs* 
to (este m elude de prote^au deve ser 
usado cm coojuof So com o anterior). 

Manuais espessos — Um pfograwa bom 
deve vi r com excel cut e documcnta^o, 
Para facOitar a vida do usuino. uma boa 
parte dessa document a? 3 o deve Hear 
dispens'd em linfui. para apoia-|o 3 
qualqucr hora. sem predsar it ao ma- 
nual. Ent retail to, elas nao devern ser 
suficientes, scnlo copiar 0 programs e 
to pi ai tudol Uma defesa c criar manuais 
grossos, que. a tilulo dc tarmhun/af Ao 
progressiva do usuario com 0 produto, 
estdo destilando infoma^&es cssenciaiis 
gula a got a, 'jbrlgasido a uma Copia in- 
tegral da documenta^ao para tomar 0 
produto utiiizive]. Se u volume for su- 
Hcicntc, c 0 cuslo da fotocopia devado 
0 bastante, entflo, a aquisi^o de uma 
cdpia pi rat a deve tornar-sc mats onero- 
sa do que um original oflcial, imped todo 
assim a pirataria, 0 probletna c que exit 
tern pirn las da oopia. usando as escondi- „ 
das as maqumas das suas companluas. * 




A MICRO SERVICE 6 uma ©mpresa especializada em 
dar tranqQilidade. Porque oferece oomprovadamente 
o melhor servigo de manutengao para seu computador 
E quando seu equipamento esta funcionando bem. 
e s6 tranquilidade, E sb MICRO SERVICE 



TELS.: (021) 240^4934 
(011) 240*5899 
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C6PIA DE PROGRAM AS: OEFESA 



Certos iipos de Lintu c die cor dc fun- 
do de papcl dificulram a ubiengio de 
resultadOS legiveis. Mas existem varias 
m areas de copia doma (basta que uma 
JeLas funcione), e cerlos piralas avanga- 
dos estltti usandn a fotografia. 

Ve rafies frequenter - Em todo progra- 
ma, apds a distribute. percebosc que 
novas fungfies podem ser ucrescentadas, 
as ja existenles melhoradas. etc. 

Ao invcs de ten tar fazci o produto 
ideal da prime ira vez, uma eslratcgia 
mats em conla e difundir vcrsocs succs&i- 
vas, mas, num piano coneebido de an- 
temilo. a fun de nSo periurbar os nsuj- 
rios legitim os com mudangas bruscas no 
mode de conseguir os re suit ados. For 
excmplo, au mental progressjvamente 
o numero e o (amanho dos campus 
manipulivds, acrcsccntar novas faoilida- 
des, scmprc sob o pretexto de assistir 
melhor ao client*, Na vcrdade, o que se 
busca e dcsoslabdizar o pi rat a e o usui- 
rio de c6pias ptralas. forgando-os a uma 
corrida sent fbn contra o tempo. Espcra- 
se assim que os u atari os, pelo menos, 
se cansem e coinprem uma copia legili- 
ma 

Difundir programa* conte ndu error per- 
sonalizados - Alcm dos err os n3o pla- 
mcjados, scmpre indcscjaveis, podem ser 
incLuidos vofunlariamentc urn punhado 
dc erros (diferentes cm cada copia), que 
so aparccem ap5s urn certo tempo. Es$es 
erros dtvem ser lac lime me reversiveis 
para nJo dcstruir os dados que c usuirio 
legftimo amassou percosamenie. e a cor* 
regio passada pelo teiefone e n3o por 
esc mo. Por excmplo. na hora de gravar 
o X-esimo registro (X ■ 1024 + numero 
de seric), a programa mostra ao u$u£- 
rio tuna men sagem araigavel do tipo 
L 'Desculpa$, tiro inter no recuperivel 
Teiefone a . , Entffo o usuirio f 
guiado por uma voz agradavel, passu- a- 
passo, para fazer isso, digit Hr aquilo, 
trocar tal ditco e, cinco minutos depois, 
n?o [era mais problema, Se for bem 
feilo, o usuirio nSo tera tornado nola 
e n2o podera, por sua vez, ajudar os 
usuirros ilegitimos. Certos fabricanles 
de equipamcnios de grande parte estfc 
usando cste mctodo hi anos, com sU- 
cesso. 

Ideniifica^ao das cbpias - Para prevenir 
a divulga^io de c6pias piratas, e pOMlvel 
exigir do usuirio urn pa pel assinado 
pelo qua! de, usuirio, se respansabilize 
pda nao-divuiga?5o indevida do produ- 
10 . Entlo, bast a let um meio segum die, 
encontrando uma copia piraia, poder 
enconlrar o diente original. Por isso. 
cada copia deve ter uma idcrturica^io 
diferentc das dernais. 

Colocar um numero de serie e pri- 
menvo: urn programs simples, corapa' 
ran do duas ou mais copias legitim as. 



local izari o numcro c/ ou norne do 
ciicnte e trocara por Capitio Gaitcho 
ou coisa scnielhante. 

Fazer o programa se aulodccriptar 
no inicio da exec uf So e apenas melhor; 
os interpret adores dario o ponto certo 
para copiai o programa, apos a fase de 
decriptografla inicial, onde todas as c6- 
pias volt am a ser id^nticas. 

Uma melhor solu^ So e usar o disfar- 
^ador Iciiadona pnmeua panedoartigo) 
para enlxcgar a cada diente uma copia 
tecnicamentc diferente, unde a ordem 
de montasem e guiada pelo mirncro do 
ufliario. Urn programa separadu, de 
posse exclusrva da fabricante, pode ler 
o binlr io e f com para n do com urn bb 
nirio de referencia, reconstniir 0 e&di- 
go que serviu a geraig3o da edpla. Mcsmo 
sc o pirata usar um disfar^ador t pouco 
provivel que ele corte O programa nos 
mesnios pontos que o disfargador do 

"E necessario 
investir muito, 
na parte 

relativa a 
seguranga, para 
se proteger de um 
pirata decidido." 

MMHWMIiH 

fabricanle, 0 qua! tera informagio sn- 
flciente para reencontrar de qualqner 
in.aij.cira □ nutnero original, 

Amiimr a execugao a mdquiiiasi espeef- 
ficas — Quase todos os micros tern uma 
forma de s^rem personalize dos, arma- 
zenando em celulas vazsas das Eprom de 
programa reside me algum mi mere de 
idemificaglo- As exccgfies sdo por 
coma dos rabrkantes que, visando re- 
duiir os custos, infelizmenle trocam as 
Eprom (regravaveis) por Prom (inaileri^ 
veis). De posse do enderego do ntimero 
de sirie, os programas podem verifkar, 
de vci em quando, se a miquirta esti 
entre aquelas que possuem 0 respective) 
numero de idenlificafflo para 0 qua! 
a miquina foi ticenciada. Isto pode ser 
feitp comparando-se u numcro com 
uma lists convenient ernente cam u Had a. 
As inscmgOes para este leste nio devem 
jparccer, sen do consiruidas na hora 
(lalvex a pari it dc dados disfargados 
no cabegalho dos arquivoi) e deslruidas 
Lmcdutamcntc apos o uso. 



Programas com tempo dc vida limitadu 

— A equipe pode querer que os progra- 
mas sc autodestruam jp6s um certo 
tempo de vida, oncialmente para gararv 
tir que os usuirio s estJo u sail do a ulti- 
ma (e mass correti) versfio do programa, 
mas de fate para acahar com a alcgria 
dos tuuinos [Legitiraos. Os problem as 
sio varios: 

* obter 0 tempo. Se 0 usudrio consul- 
tar uma base de dados, e ficil: as Idas 
inkiais podem apresentar a hora codia 
do sistema central. Para isso, o pacote 
de comunicafdo tern de str inlcgrado 
com outros aplica lives. Se 0 sis tenia 
depends do naiirio para a data inicial, 
essa deve ser considcrada como suspeita, 
mesmo sc o equips memo tern utn rdo- 
gio de tempo real in dc pendente. Mas. sc 
o usuarto deve mais lardc prccncher 
compos de contis a pagar, como ten do 
sido pagas na data X, sabemos que hoje 
£ (pelo menos) 0 dia X. ,, 

* esconder o reldgio O sistema deve 
manier a ultima data vilida em algum 
canto para imped ir altcragOcs. visando 
fixer voltar o tempo atras Como 0 
usual iu curio so pode ten tar copia r 0 
disco, dax uma data falsa, fazer uma 
transagio nuia c com para r 0 novo 
estado do disco com a copia anterior, 
e necessario esconder este campo. Uma 
solugto e rcservar uma grande irea de 
niido aleatdrio e escrever a data ncssa 
area, ntim lugar variavel, possivclmentc 
depen den te dos primeiros algarismos 
alcatdrias. Pout' as pessoas tcrio a 
paciencia dc repetir a ope rag ao bastan- 
te vezes para trhegar a locaiizagJo. 

Uma vez o pTlZO cspirado, virias 
atitudes podem ser tomadas (se possl- 
vcl, de modo gradativo para nao assustar 
os usuanos legitimot): falsa s mensagens 
de arqnivo cheio, erros revenfveis, etc., 
para dar ao usuirio legitimo o tempo die 
renovar sua licenga de uso. chegando 
ate a executar virias agOes mais ou me 
nos terrorist as, como estragar o diret6- 
rio dos discos. 

Registm do uso Pclas mesmas razdes, 
0 programa pode acumular 0 numero de 
transagdes e decidir parar ap6s um certo 
numero- O contador tern de ser bern dis- 
fargado (por excmplo. no meio de ura 
mar de niido) e nJo bem visivcl (no 
prime iro e no ultimo setores da disco). 
Como o uso dos programas depends 
muito da situ agio, este mitodo d bem 
inferior ao precedente. 

A SOLUCAO 

Fiiuhnentc surgiu o que parece ser 
a sulugdo deflnjtiva para 0 problem a da 
pirataria: a execugSo do programa em 
modo cj 1 pt ado {a present ad a cm um arti- 
eo de D. J. Albcri. funcionario da Intel 3. 
Aproveiiando os progresses da micro- 
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clctiomo. fica jgun possivcl colocar 
?i d mesiu pasl dhj uma LX F c uni j logi- 
cs dc criptografia, pur eXejnpJa, do tipo 
DKS (Data Encryption Standard), 0 nu- 
mero de pinns sc man i cm igual a uma 
pa&tilha com apenas a UCP, mas os 
bytes do programa podeni vir da mcmo- 
ria em mode cnptado e serem decrip- 
tados some nte para exaia hora de scrcm 
ubedecidos. 

A pastilha 6 idcntificada por am nume- 
ro csterno escnto legivelruente do lado 
dc fora to fabiicante da pasiilhagravou in- 
temamenlc jeti num erode identifier Jo 
diftrenle. do tonhccimeniu dele e do 
fabricaritc do pacote}.Ousudhoconheee 
o numcro exlcmo da pasiillia c sen mi- 
mero dc nsuirio do pa cot c. 

Retebado o dinJicuo do usuario, o 
computador do fabricantc eenstroi uma 
versSo especifiesi - usando uma chave 
associada, mas dife rente do numero do 
usuario - que so fuitciona no micro dea- 
lt usuario, que a decodiftea^iSo das 
instm^Aes so lent sent i do nesta past iJ ha 
em panicutar. Para facLUtar p sent perder 
nada em segu Tanya. apertas certas partes 
crittcas do piograma precisam scr crip* 
ladas. Para ha ra tear os eustos, a remessi 
do programs podc ser perfeitamentc 
feita por tmha leietomca comum, os 



dados transmit i dos tendo eXdtamente o 
mesno valor do que os dados amwena- 
dos no disco: absolutamente ZlfRG sem 
a pastilha correspondentc. A remessa 
das alualizayOcs limit a -se as partes 
Liietadas, sendo asiim, de pouca dura- 
yJo, podendo ate ignorar front eirai 
internationals, 

Esc o usuirio troca de equipamento, 
tni « a pasitlha e substitufda, cle preei- 
sa dc uma nova copia, tranamitida em 
nnnutoL a menus que a freqiMncia dc 
troca fay a o fabneante desconfiar 

Nan t possivel ao fabricante do paco- 
lc luinecer a pastilha junto com o novo 
disco, visio que o usuario vai legit mi a- 
me rite querer usar pacutes de vinos 
fabric antes no rnuario equipamcnig. 

0 caso do usuario criar uma firma 
fantasma a penas para obter as e haves 
feu previsto: ele n2o conseguiri assim 
decriplar os programas dos outros, 

O detalhe e que este mclodo* quan- 
du for usado cm larga escala, vai abrir 
uma oulra dascussdo: se, por urn lado, 
clc acaba com o problem a da pi rat ana 
dc programas, por ouiro, lambcm aca- 
ba com a fabricate de micros com path 
veas, colocando em seno perigo uma 
certa parte da nossa indust ria national. 



CONCLUSAO 

* £ necessario investir muito na parte 
relativa a seguramja para sc proteger 
de urn pirala dccidido; 

* £ necessano minimizar o lamanho do 
alvo, vendendo os pacotcs a pre^os 
suficiertemente baixos para desenco 
rajar a pi rat aria; 

» £ rieccssaiio numeral disc relam ente 
as copias, para maxim tzar as chances 
de apanhai osculpados; 

* £ n etessario um sc no esforf o no pia^ 
no legisJalivo, para caractenzar osen 
mes e maximizai as penas dos piratas 
de colarmho branco; 

■ £ necessarto, para a indiislria nacio 
nal, percebcr que a era da piratana 
de hardware podc tambem acabar; 

No fundo, Eemos ai um problema 

cultural: temos que deixar dechainar de 

esperteza o que £ roubo mesmo. 
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As vezes, a informa^ao que voce necessity esia bem mais 
proximado quese i magma! Nos ultimo* anus, v arias redes 
de disscminacao de dados foram colocadas a disposi^au 
dos usuarios de micros* oferecendo services como tclecon- 
ferencias. eorreio eietrbmco e bases de dados sobre assun- 
tos especificos* Saibu nesta reportage m como estao fun- 
cionando o Cirandao e O Videotexto. as principals redes 
publicas do Pais. 

Cirandao e Videotexto: 

a evolucao dos servicos 



Ora nd an foi cnadu. no segu n- 
dn semestre de J9S4 T a partir 
B M da ideia pioneira do “Projeto 
CirandV\ a ptfmeira cornu ni- 
dade telemformatizada dn Brasil, Esta 
comu unlade era const it Uida exclusive 
men Ee pel as funckinarios da Embratd 
que uiilizavam nucrooGitiputadores do 
lipo CP 500, financed os pela empress, 
A ideia bisica do CiilndfO era criar itm 
ststenia similar 30 Ptojeto Cininda, po~ 
rem acessi'vel a todos os usuinosde mi- 
cros. 

Utilizado micialmcnle par algumas 
centcnas dc pessoas, cm so a maioria pro- 
fessionals liberals (medicos, engenheiros, 
etc), 0 Cirandao cnlocou A disposal® 
deles vinos serv^os como teleconferin- 
eras, envio de mensagens. quadro de avi- 
sos e mere a do eletrdnico, aim, e claro, 
de possibilitar a consul I a a diverse bases 
de dados cum assunlos que vao da nulri- 
fio ate a informdhca. 

Eniretanto, como muitos projetos 
pioneirua, 0 Cirandao niio era perfeito. 
Memo tom an do providencias para re- 
solver os problems de corn pat ibili dad e 
enire os diver so s equipamentas interli- 
gados a rede pois non tod os os equi- 
pamenias cram do modelo CP 500 — , 
a Lmbratcl recebcu diversas redama 
fOes que 1 am desde problemas lecnicos 
como Jifkuidade para acessat a rede ate 
crfticas an Servian dc Assist encia ao 



Umirio. Outro aspectu lainbem critica- 
do per virios usuarios era □ desatualua' 
9 S 0 de alguns buncos de dados. 

On Era clapa na histOria do Cirandao 
foi quando cste abaorveu 0 Piojeto Ci- 
randa. Segu 11 do a Em bra lei. esta opera- 
fS o foi apenas uma con sequence da 
"evolu^fo natural do sistema. pois com 
a Lnterliga^So, os usuinos do Pmjelo 
passanam a comar com outros servi- 
ette". 

Agora, dots anos apos a sua trnplan- 
tagao, o Cirandao eshi passu n do por al- 
gumas modifksfflcs signifies tivas. que 
certameute determinarSO n seu futuro. 
Varnos oonhecer tun pouco mais sobre 
estas mudtn^as, su 4 S caraCten'sticas e os 
fa to res que as determine ram 

A TARiFACiO 

Dent re as tnodiflcag&es que estJo 
sendo inuoduzidas no Ciiandan. sem 
duvida, a mais polemica dc lodas ea urv 
planla^Jo de uma cobrar^a pc Ins Servi- 
ans prestados, puis ate retfenlemente so 
se pagava o valor da bga^ao tclefdnicj. 

Pelo sistema dc cob rant; a cm c study, 
o nsjlrio pas^ra a pagar. no tnimmo, 
um valor deasstnaiura fnto, acrescido de 
taxas pelo tempo de Eelccomunicacbes. 
trafegu de caracteres e consult a a infer' 
ma^Ges ou programas. Alem diasu, ha 



tambem taxas para os outros services 
como teleconference, quadro-d e-avisos, 
armazenamento dc men so gem e rmilti- 
endere^amento (envro de mensagem 
para virku u sua nos simuhaneanienlc). 

Lntietanto, o motive principal da po 
lemiea entre os □ so anas e a Embratcl 
nSa e o estabcleCirnenlO da cobran^a, 
mas os valures cor respond entes das lari- 
fas. Das vdnas pessoas consultadas, a 
maioria ace it a pa gar pdas services, dey 
de que, "’lagicamente, OS promos nSo Se- 
jam muito etevados", 

&fo exatamente estes valorcs que tern 
preocupado bast ante os nsuarios, pois e 
uma qpinilo geraJ que se eles forem 
igpais aos eoiocados no menu de opines 
do Cirandao, no final do a no passitdu, 
para efeito de teste, "certamcnte 0 ser- 
vice acabara". 0 Engenheiro Eleirico 
Carlos Pogrebinschi, por exemplo, acha 
que “muitos dos cirandeiros estffo fu gift- 
do para os CBRS, ondo se paga apenas o 
valor da ligag^o telefftmca^, Carlos acre- 
dtta que a urtica maneira do Clnndfo 
continuar a funckmAr seria “cobnr um 
valor fixo para o u sua no residencial no 
hDririo das 20 :00 as 6 :00 hs". 

A Lmbratcl afirma que a cobran^a i 
0 uiiico rneio de cobrir os gasios opera- 
cionais com o sistema Ipessoal. mmu- 
temjSo. etc) e possibilitar 0 rctorno dos 
mvestimentos feitus no descnvolvimen- 
to do projelo. Segundo a tmpresa, os 
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valores colocados para teste no menu de 
op$5es foram estudados cuidadosamen- 
te atraves de analises estatisticas de utili- 
za?3o e trafego do sistema, alem de leva- 
rem em considera^Jo o custo dos servi- 
50s telem3ticos. Porem, estes valores 
ainda n3o estao em vigor pois n3o foram 
homologados pelo Ministerio das Co- 
munica?5es (Minicom). 

EMBRATEL X SERPRO 

A assinatura, em dezembro do ano 
passado, de um acordo entre a Embra- 
tel e o Serpro e outro fato que tern sus- 
citado muitas duvidas. 

Na verdade, segundo a Empresa Bra- 
sileira de Telecomunica^Oes, o que hou- 
ve foi apenas a consolida^So de mais 
uma etapa do piano que ela tern para 
completar: a transference de suas bases 



de dados para orgaos e institutes (Ser- 
pro, Embrapa, Fiocruz) que possam for- 
necer informa^Ses mais detalhadas e 
atualizadas, pois para a empresa, o obje- 
tivo essencial e oferecer servi^os de tele- 
comunica95es mais eficientes e uteis e 
n3o armazenar dados e estrututar in- 
forma90es. 

Neste acordo, a fun93o da Embratel 
sera viabilizar tecnicamente a interliga- 
930 com o Amanda ; ja o Serpro atua- 
ra de forma a unificar os bancos de da- 
dos para todos os usuarios do sistema 
Cirand3o/Aruanda, de forma que estes 
usuarios n3o necessitem modificar os 
seus equipamentos ou perifericos. 

O CIRANDAO HOJE 

Contando atualmente com cerca de 
2.300 assinantes, o Cirand3o ja pode ser 



acessado de qualquer cidade brasileira, 
seja utilizando o microcomputador ou 
mesmo o telex. Com a recente liga93o 
do sistema 3 Renpac (Rede Nacional de 
Comunica9So de Dados por Comuta- 
930 de Pacotes) — projetada especial- 
mente para o transpose e distribu^So 
de dados nos modos sfncrono e assin- 
crono, em velocidades que vSo de 50 
BPS (telex) ate 9.600 BPS a Embra- 
tel espera aumentar ainda mais a quali- 
dade dos serv^os prestados, eliminando 
problemas como nrido, queda de linha 
e outros decorrentes das deficiencias do 
sistema telefonico nacional. 

Para o futuro, ela pretende diversi- 
ficar ainda mais as atividades do Ciran- 
d3o, visando atender tanto aos interes- 
ses do usuario residencial como do co- 
mercial, seja oferecendo novos serv^os, 
seja aperfe^oando o sistema. 



Videotexto: um projeto em permanente expansao 



Operando comercialmente ha pouco 
mais de um ano, depois de passar pela 
fase de testes, o Projeto Videotexto da 
Telesp conta hoje com 4.899 terminais 
instalados, atendendo alem de S3o Pau- 
lo, as localidades de Belo Horizonte, Sal- 
vador, Brasilia, Curitiba, Florianopolis e 
Porto Alegre. Destes, 2.222 terminais 
s3o residentes, 1.699 institucionais, 88 
publicos e 890 de usuarios de micro- 
computadores que se ligaram ao sistema. 

Este numero devera ser ampliado 
dentro em breve, segundo informa o 
Presidente da Telesp, Antonio Ignacio 
de Jesus, que preve a coloca93o de 
3.500 novos terminais para aluguel no 
mercado, ate o mes de julho. Os termi- 
nais de Videotexto ja est3o sendo fabri- 
cados no pais por tres empresas homo- 
logadas pela Telesp; a Splice, Itautec e 
Digitel. Mas, mesmo assim, a oferta ain- 
da sera inferior a demanda, pois ate fins 
de janeiro a Telesp havia registrado 
4.450 solicita95es atraves de pedidos es- 
pontaneos e de indica9(5es efetuadas 
pelos proprios fornecedores de serv^os 
do Videotexto. 

Paralelamente, a Telesp esta amplian- 
do a central de atendimento, onde fun- 
cionam atualmente tres computadores 
Honeywell Bull (modelos mini 6/53 e 
mini 6/43), devendo instalar mais duas 
mdquinas ( Honeywell Bull mini 6/96), 
que ir3o elevar o atendimento de 144 
para 240 usuarios simultaneos. Agilizar 
a comunica9So dos usuarios com a cen- 
tral e uma necessidade que se impOe 
para atender aos mais de 410 mil aces- 
sos efetuados por m£s. 

Os principals serv^os procurados 



dentre os 90 oferecidos pela Telesp, 
atraves de 51 fornecedores diretos e 45 
sub-fornecedores,variam de acordo com 
o tipo de assinante. As consultas efetua- 
das pelos assinantes residenciais voltam- 
se em especial para saldos bancarios, la- 
zer fora de casa, jogos e diversOes ele- 
tronicas, mais acessados por crian9as e 
jovens, a noite e Fms-de-semana quando 
o impulso e mais barato ; noticiario em 
geral e assuntos econdmicos. Os insti- 
tucionais buscam serv^os especificos de 
acordo com o ramo de atua93o da em- 
presa, horarios e pre90S de passagens, 
indices econ6micos, transa90es banc3- 
rias, noticiarios e alguns serv^os de la- 
zer. 

O projeto Videotexto oferece dois 
serv^os especiais: o Telesoftware e o 
Correio Eletronico. No primeiro, o usua- 
rio pode receber em seu terminal qual- 
quer programa da Prologica ou do Siste- 
ma Eletronico de Informatica - SEI 
(programas publicadas pela MICRO SIS- 
TEMAS) — , bastando para isso telefonar 
para um dos dois fornecedores e solici- 
tar o programa desejado. Porem, um 
problema que se coloca e que muitos 
micros ainda n3o est3o aptos a copiar 
os programas disponiveis. O Correio 
Eletronico permite ao usuario enviar 
mensagens diretas a outro assinante, que 
por meio de uma senha especifica terd 
acesso 3s informa96es armazenadas 
numa caixa postal. Com isso, garante-se 
o sigilo. 

Por outro lado, atraves do Teleshop- 
ping e possivel fazer compras sem sair 
de casa. Para isto, basta escolher e digi- 
tar qual a regifo em que 0 produto sera 



entregue, a se95o e o codigo do produ- 
to desejado. Uma vez registrado o pedi- 
do, o fornecedor entra em contato, 
combinando inclusive a forma de paga- 
mento. Nove fornecedores fazem parte 
do Shopping Eletronico Comercial: Ca- 
sa Moises, Columbus, Editora Pine, Fo- 
tos 8t Cores, Livraria Nobel, Marketing 
Direto Abril, o Estado de Sao Paulo e 
Videoshop Sandiz. O Teleshopping fun- 
ciona ininterruptamente e possibilita 
tambem a compara93o de pre90s. 

Nos meses de mar90 e abril, o Video- 
texto contara com um banco de dados 
sobre o cometa Halley e a Telesp esta 
estudando a possibilidade de colocar ter- 
minais publicos em locais como Planeta- 
rio, Campo de Marte, Playcenter, Cida- 
de da Crian9a e Shopping Morumbi, em 
Sao Paulo. 

O custo de uma assinatura mensal do 
sistema e hoje de CrS 10.607, para ter- 
minais residenciais; e de CrS 67.893, 
para os institucionais. O pre90 da liga- 
930 telefonica para ingressar no sistema 
e de CrS 218 por impulso para as liga- 
9oes efetuadas da capital paulista e de 
CrS 318 por minuto para as demais ci- 
dades e estados. O pre90 do aluguel do 
terminal residencial e de CrS 66.027 e 
do terminal institucional CrS 132.044. 

No Estado de Sao Paulo, alem da Ca- 
pital, o Videotexto possui clientes em 
Sao Jose dos Campos, S3o Jose do Rio 
Preto, Santos e Campinas, devendo es- 
tender-se proximamente tambem a Bau- — 
ru. a& 



Reportagem de Carlos Alberto Azevedo e Lia 
Bergman. 
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MICRO SI STEM AS traz, nesta edi^do, um comentdrio sabre o 
x Color max — poderoso program a para quern deseja ex pi ora r o 
lado grafico do TRS -Color, Apre sent ado em versdes disco e 
jjta, ele Simula algumas (undoes encontradas no Macintosh. 



Editor grafico para o Color 




O fereeer aos usuinos 
um si&lcma gjafiCG 
podcroso, com recur- 
sos a aitura daqueles 
disport iveis apenas em compu- 
t adores de cuslo mats elevado. 

Este foi o principio que nor- 
teou a cria^do do Cote Max, 
um dns editores grditcos para 
TRS-Color de maior SuceiSO no 
exterior, e que agora esti sendo 
lan^ado no Brasil pel a Novatec. 

0 Colormax, como foi rebatiza- 
do aqui, i composto por tim 
modulo dc alt a resolu$ Jo, alcm 
do software propriamente dito 
- disport ive I em cassele ou disquete - e 
um manual do usuino, em portugues, 
com 28 pdginas, 

0 modulo de alt a resoluqSo encaaxa- 
sc na entrada para cartucho (usuarios dc 
disco predsarSo de um cabo 'T 1 , vcn- 
dido a parte! e ctmsiste num conversor 
A/D com safda para uni perifdrico como 
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Com o Colormox — iotlo xuiaJa pormt* 
nut a imagem pode ser edit ad a. espt- 
ihada, iransferida e eorrigids 



joystick, touch pad ou mouse. O objcti- 
vo do mbdulo 6 pemiltir uin controle 
msi$ precise desse perifdrico. jd que a 
entrada para joystick de 6 bits do TRS- 
Color permits o acessti dire to a apenas 
64 X 64 poslgGes de tela, t ajustar esta 
cscala por software para cobrir 256 X 
192 pontos acarretaria uma perda de rc- 
SolufSo, visto que dessa maneira u dcslo- 
camcnto do Cursor, ao inves de um, se 
daria a cad a quatro pernios. 0 convenor 
dc 8 hits do modulo elimina este proble- 
ms, pos&ibililando o acesso virtual a os 
49,152 pontos da tela de alt a resolute. 
Alguma pritica. contudo, 6 nccessarla 
para manejar o joystick, principaJmente 
no tra^ado de linhas curvas. 

0 sofl ware eiriula as fun^fles do Mac 
Faun, o jd legcndario editor grafico para 
o Macintosh. Com ele, £ possfvel criar fi- 
gure geomdtricas de formas regulares, 
OU lrvre$; definir diferentes espessuras de 
travel para desenhos a mao livre, com 
pined, lapis e lira-linhas, pr tench tr as 
figuras com ccrca de 60 padrdes diferen- 
tes^ os quais podem ser editados. com- 
binados e superpostos - inclusive com 
transparency - de modo a se obter um 
nilmero praticamcnte ilimitado de tex- 
luras. Os padrdes s3e coloridos, embora 
algumas cores possam softer a Iterates 
dc acordo com o posicionamento do de- 
senho na tela (um efeito colateraJ da 
maneira como o TRS-Color gera as cones 
cm modo de alt a resolutjao). A imagem 
£ criada numa "janda' + mdvd, podendo 
ser edit ad a, apagada no todo ou cm par- 
te, cspclhwla, invertida, transferida, am- 



pliada (zoom) c corrigida por uma fun- 
\ r lo do tipo undo, que rest aura o con- 
tend a da tela apes uma operatic enga- 
nosa ou cujo result ado pare^a insatisfa- 
tdrio. 

A opera^jfo do slstema e bastante 
simples, utilizando a tdcnica de icons ou 
Ftgutas rep resent at rvas das fun^Oes, que 
permanecem na tela durante todo o pro- 
ccsso de elaborates dos desenhos. 

Para selecionar uma fun^^o T bast a 
mover o cursor do programs com o joys- 
tick ate o icon correspondente e press io- 
riar o botSo de tiro. Da mesma maneira 
sSo seleelonados menus que controlam 
Fun^Oes auxil lares (pull-down menus). A 
ted a shift e usada oeaiionalmcntc para a 
obten^ao de efeitos especiais; fora isso, 
o ted ado so £ usado na inser^a o de tex- 
to na Dustra^lo (para isto cstao dispo- 
niveis letras de diversos tipos e forma- 
tos) e na titulaqio de arquivos. 

A tela pode ser gravada em disco ou 
cassete e recuperada ai raves de um co- 
mando (C) LOADM normal. 0 progra- 
ms pnevS ainda rot bias de impressJo 
para 22 inarcas dife rentes de inipresso- 
iis, alem de opgto para dtgjtali^ador dc 
imagens. 

A configura^ao minima para rodar o 
Colormax e um Color de 64 Kb, corn 
disco ou cassete, e um joystick. A dispo- 
nibilidade cm fita e uma caraciensuca 
bastanic interessantc deste utilitario, 
considcTando-se que a maioria dos usua- 
rios de TRS-Color possui equipamentos 
eonfigura^io cassele e que nao ha qual- 
quer prejutzo da performance do sisie- 
ma neste meto de opeta^ao, A empress 
oferece garantia de 180 dias a contar da 
data de aquisi^ao do produto, ArsAliie 
feitai por C (Audio Costa, Asserwr-Tkni- 
co de MS. 



Nome : Colormax 

Linha: TRS-Color <£11400 ou Hta) 

Pah rt L'a n i e Novatec Indust ru e Como r- 
ok) 

Endereco: Rua Paissarulu. 346. i.iranjei- 
ras, Hk> dc Janmro - R J. CEP 222 |0 
T depone: [ 02 1 ) 245.5823 
PrevorH ORTN 
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Principals cumandus do Super SCRIPSIT 



@ A Ajusoa aiinhamento pela dibits. 

@ 0 Maoipulac £> de bloctis [Vsja quedrO aO ladoL 
@ C Gin I rail za ou descent raUz a urn par^grarlo. 

@ 0 -Da let a o cariTer sob a cursor e desloceo tax to uma po- 
iicao a esqueraa. 

@ E Tarmina urn olnco de lextoe uma matci indicac^ 

do o final do meimo 

§ F Prepdra formats para carta-iudrSo. 

G Ac ha, 4iqdga ou tiOca uma palavra no textd. 

H Lifta no tala lodas os comandos disport f«is. 

■Si I Inhere linhasou caracieres no lexto. 

@ J fteservado parg futures trerKSw do SCRIPSIT. 

#K Reneroado para fuiurH vartAet do SCRIPSIT. 

^ L Roiorvado para futures vetoes do SCRlPSlT. 

';i- M Mudj mar-ga-ns ou iniciode paragrato 
&> N Nova pAgina. 

@ 0 Resarvado para fuloffli do SCRIPSIT. 

Cf p Impnmir o TSMO. 

@ 0 Re coma ao menu principal. 

@ R RetOrna com o bloco de lexto que foi copiado du movi- 
do , a part i r da pos ic »d do cursor. 

f S Co Idea a margem de jni'eio de bloco. 

T Entra no quadra de edipao da tabulated. IWja guadro 
ao LadoS. 

@ u Liga OU deslige a cftM do prOgrarnadOr . (Sc e-stiver liga- 

do, cpipque um dfguo apitl. 

-A' V Per mice vi-tualizar os cbdigos de com role, 
if" W Grava 0 tu-xlu oP disco. 

X Marca um bloco. 

if ¥ Rtservudo para futures uersoes dev SCRIPSIT. 
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TECLAS AUXILI ARES PARA WANIPULACAO DE QLOCOS 

A Apa^a o bloco mar&ado 

C Guatda o dioco pita copiar tm ouira pane do texio Nao 
jpjpa o bloco origiiul. 

E ttpdcamflnuo dot iinl>«. Permue sKoiiwr a espacameoio 
dtt tinhat para mptntlD 

G Co open ou ddcongftia o bloco Ac controiar o blooo r vod 
ntsd proibmtfo a edigjo ttHt. 

H Hflen. Marc# par# separa^o nlAbica de uma palavra Ou Ira- 
cho do Eejcla. 

I Imprima p bloco marcado 

M Guarda p bloco par# utilizer em outra parte do lexto a a pa- 
pa 0 btocp original, 

T Tabula o bloco mareado. 



TECLAS AUXILLARES PARA EDICAO DE TA&UL ACAO 

\ Marge m esquerda 
) Merjem dir«i1 «. 

P In (cits de parAgrafg. 

+ Marca posic-Ed do labuiador. 

^ Cenoaln poiigjfc do tabuLador. 
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Urn dos ramos de maior sucesso na computac^ao grafica, 
sem duvida, e ? a fotografia sintetica. 
conhe^a agora urn pouco sobre este misto de arte e 
tecnologia que tanto fascinio desperta nos programadores. 




U m dos ramos da computa?ao 
grafica especialmente fascinan- 
te e, atuahnente, bastante emer- 
gente trata da simulafao, por 
computador, da visao real dos objetos. 
Fotografia sintetica, como e mais comu- 
mente chamado, difere do CAD {Com- 
puter Aided Design — Projeto Auxiliado 
por Computador) pelo fato deste estar 
voltado para a area tecnica, onde a preo- 
cupa^ao com efeitos visuais e relegada a 
um segundo piano. A descri9ao da geo- 
metria do objeto que se deseja represen- 
tar e a capacidade de exib^ao em corte 
— segundo suas principals vistas — , estes 
sim, assumem papeis principals no CAD. 

Na fotografia sintetica, aos ingredien- 
tes mencionados acima, sao adicionados, 
fundamentalmente, um modelo de pers- 
pectiva tao proximo da realidade quanto 
possivel e a capacidade da intera^ao da 
luz com os objetos de cena como, por 
exemplo, reflexo, brilho, sombra, trans- 
parency, refra^ao etc. 

Hoje em dia, os computadores vem 
sendo largamente empregados nas areas 
de publicidade, televisao e cinema. A 



Luiz Antonio M. Pereira 

ideia e obter imagens impossiveis ou 
muito diffceis de serem conseguidas 
pelos meios convencionais. As sequen- 
cias se utilizam tanto de voos bastante 
ousados da camera sobre ou atraves dos 
objetos da cena, quanto da fragmenta- 
qSo e movimentagao dos diversos ele- 
mentos que compoem o motivo focali- 
zado, segundo trajetorias matematica- 
mente precisas. As tecnicas atuais per- 
mitem efeitos de cores e de iluminagao 
bem pouco comuns, porem bastante 
proximos da realidade. O resultado das 
simula9oes Ievadas ao mais alto grau de 
detalhismo nos conduz, em muitos ca- 
sos, a duvida sobre a veracidade ou nao 
da foto. 

UM POUCO DE HISTORIA 

A genese da computa9§o grafica se 
deu no infcio dos anos 50 , quando o pri- 
meiro display foi acoplado ao computa- 
dor Whirlwind I do MIT (EUA). No en- 
tanto, durante essa decada, a computa- 
9ao grafica interativa (assim chamada 
quando ha possibilidade de manipula- 
9ao, por parte do operador, de elemen- 



tos como angulo de visada, posi9ao rela- 
tiva dos objetos, trajetoria do observa- 
dor etc.) nao progrediu significativamen- 
te. Isto deveu-se ao fato dos computado- 
res da epoca nao serem adequados ao 
uso interativo. 

No inicio dos anos 60 , entretanto, 
um americano chamado Ivan Sutherland 
mostrou, em sua tese de doutorado, a 
grande importancia da utiliza9ao de gra- 
ficos no dialogo homem-maquina. 

Dali em diante, grandes companhias e 
universidades americanas dirigiram parte 
de seus esfor9os em pesquisas na area de 
Computer Graphics, que dia-a-dia vem 
assumindo posi9ao cada vez mais desta- 
cada dentro da computa9ao. 

Assim como o CAD, o Business Gra- 
phics (graficos voltados para negocios) 
e o Processamento de Imagens (proces- 
samento de fotografias por meios digi- 
tals), a nossa Fotografia Sintetica vem 
progredindo rapidamente. Hoje, a evolu- 
9S0 nesse ramo esta muito vinculada ao 
progresso da tecnologia de tubos de ima- 
gem colorida. Como e de se esperar, a 
reciproca e verdadeira. 
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fr£-requisitos de hardware 

E SOFTWARE 

Para este tipo de aplicag&o, as pala- 
vras chaves sac; resolufSo grafica, tor 
e veloridade de processamenta. 

A alt a resolu^do grdffca c rrecessaria 
por tun motive) 6bvio: quanto niaior for - 
o numero de pontos porunidade de^rea, 
mais bem acabados fleam os carttomos 
dos objetos da etna, flea n do a imagem, 
portanio, mais proxima da realldade. 

Similarmejite, quanto mais cores fo- 
rem as possfvejs, mais pr6ximos da rea- 
lidade ficam os efeitos de sombra, refte- 
ko, briiho, ideia de profundidade etc, 
Na realidade, £ intEressante que para 
cada cor basica disponfvef se dispotiha, 
tambem, das divertas lonaJidadcs para o 
daro e para o esetiro. 

Este cvnjuntinho T de resol ugSo e cor, 
forma, de inscio, um par bast ante dlfi- 
cil de se encontrar no mercado, ja que 
estamos nos referindo a resolu^Ces pre- 
ferencialmentc maiores (pordm, nSo ne- 
cessariamente muito) qua 500 x 500 e 
algumas dexenas de cures possiveis, 
A3em disso, esse ca sals mho neeessEta — 
para que possa convive r — de bastante 
memdria. I: facil Explicar: uma das tec- 
nicas bastante utilixarias hoje em dia no 




projeto de terminals graficos i a utiliza- 
fiio do que sc chania dc frame, buffer. 
A ideia -6 que, para cada ponto da tela 
(tambein chamado de pixel - um short 
para picture element), exista um conj un- 
to de bits na memnria do terminal que 
armazene o estado (cor) do ponto na 
tela. Este estado £ lido e interpret ado 
por um proccssador altamentcr especiali- 
zado, chamado de controlador dc video, 
que orienta o refresh da tela de forma 
adequada em ciclos regulars s de tempo. 
Fan outras pala vras, a informal digi- 
tal contida em um conjunto de bits da 
memoria e Iran forma da em sinais ana- 
logicos que determinant a cor do ponto 
correspondente na tela. Isso e feito para 
todos os pontos da tela, 30 ou mais ve- 
zes por segundo, Ora, se nosso terminal 
£ capaz de mostrar-uos, suponhamos, 
256 cores distintas (e ao mesmo tempo) 
com uina resolu^Io dc 500 x 500, deve- 
nemos ter: 




8 bits por pixel (necessarios para cod i fl- 
ea r 256 cores diferentes) X 250.000 pi- 
xels em tod a a tela - 2 .000.000 bits = £ 
244 Kb, 

Nada encorajador, mas, sem duvida, 
muito mais facOmente contorndvel do 
que o problema do tubo de imagem que 
devera ser especialmente feito para esse 
fun. 



A vcJocidade de processamento e, da 
mestna forma, muito desejavel, ja que 
espera-su que aigudm ou alguma coisa 
defina o conteudo do frame buffer em 
um tempo razoavelmente curto, 

Hoje em dia fala-se bastante cm gcra- 
£lo dc iitiagensem tempo real. Isro, sem 
duvida, exigE que a maquina que define 
o conteudo das 250.000 posig&.3S do /na- 
me buffer o iag.a rapidamente, a ponto 
de se conseguir o efeito de animate por 
justaposifao de in slant aneos, como cm 
um filme. Isto signifiea que, novamente, 
temos de dosar os efeitos que desejamos 
obter com a rcsolu^fo que pretend er- 
mos utilizar, a ponto dc toda a “ealeu* 
leiia” necessaria para a determina^ao da 
cor de todos os pixels poder ser feita al- 
gumaa vexes por segundo. Resultados 
par demais tmpressLOJiantes sao obtidos 
em simul adores de vdo, porem, com o 
uso de hardware extremamente dedici' 
do. A medida em que exigirnos niaior 



detalhiriiento de eena (alta resoluf^o 
gr&fica, cores e efeitos como briiho, re- 
flexo etc.), devemos abandonar a ideia 
de gera-la em tempo real (esta e obvia- 
mente a realidade de hoje). Podemos 
contomar o problema gerando quadros 
independentes para, ao final, montados 
cm seqijeneia como os quadros de um 
filme . Dias de processamento sao neces- 
saries para a obten^Io de alguns $egun- 
dos apenas de filme. 

A outra face da moeda e-o inevitdvel 
software. Nas maquinas projetadas p^ara 
esse frm, o software, altamente otimiza’ 
do, 6 implementado em hardware (firm- 
ware), o que torna o equipamento mtii- 
to Special izado e efkiente para a dada 
aplicagao (maquina dedicada). A id^ia 
de alocarmos uma maquina por dias, 
para obtermos apenas alguns segundos 
de seqilincia, parcce, a principle , bas- 
tante exagerada. No entanto, se dermos 
uma olhada na seqiiencia geral de passos 
necessarios para a geraqao de urn quadro 
( veja a f'igura 1), podemos co nst at ar (ou 
pelo menus imaginar) a quantidade de 
calcuJos envotvidos. 

O QUE E PRECISO SABER 

£ importante observar que um &6 ob- 
jeto da eena pode se consliluir de v&rios 
elementos. Por exemplo, uma pirimide 
debase quadrada c const itufda dos qua- 
tro triangulos que formam a superficie 
lateral mais um quadrado na base. Um 
cubo e formado por seis elementos qua- 
drados etc. Elementos sSo, entS'o, as me- 
nores por^5es definiveis matematica- 
mente. Assim, cada efeito que desejar- 
mos implement r (sombra absoluta, 
sombra suave, briiho, reflexo, transpa- 
rencia etc.), precisara ser descrito atra- 
ves da matematica. 

0 efeito reflexo e implementado co- 
nliecendo-se — primeiro - as leis da ffsi- 
ca que regem o comportamcuto de um « 
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leixe de luz que Incide sobre uma super* 
fide tefletora t - scgundo - a rnaiemi- 
tiea neeestaria para desenvolver o feno- 
meno. Para cada efeito implement ado, 
espcra-sc um sensivel aumento no tern,' 
po de processamento necessario para a 
de terminable da oor/tom de cada pixel. 
Dai, um passeio por um destcs ce nines 
cer[ ament e nos custaria bastante care. 

A maternities e va$tamenic uiiliaada 
na defmifdb dns dementos atravds de 
suas cquafdes, ns determinafSo do(s) 
ponio(sj de in terse*; ad das visada$ e Pei- 
xes de luz com os elemen to$, na deter- 
mma^lo de vet ores norma i$ e/ou tan- 
genres as superficies para a implements- 
de efeitos etc. Alias, diga-sc de pas- 
sagem, especificamente ligebra linear, 
geometria anal ft tea no espa^o 3D c edl- 




Xnicio : 

Solic itat' aa dirccnaopLi do Jans La dtr ^bijarva^oo; 

Solicitat a a coordar.adns do SO on rola£oo ao SG; 

Solicitar a distancia do ponto Obncrvador a Janela; 

Solicitor angular ALFA, BETA u GAMA jongulog de visada^; 

CnLcular ti reatn?: tfifi tranfif. do cooed, do SO pita 5G; 

Calcwlar as taortf^naiaas- gio&oio do pence ob-aorvadoi:; 
scjilcitflr as cocrdefiada.fi da{ei) Conte (si) do iluminecao {on 
rela^ao ao £Gj; 

Solicitar oa dado a doa olcmcnton dn cana (Lips, posi^io, 
dimensoes, cor etc.); 

Fare cada ponto da tela, fanor: 

C’aicular as coo rden ad* » , r.o SO, do pontO; 

Determinur as ooordenadcLfi no SG do jxrnto i 1 J x 
Intcrccptar n vasad* com todo-s on tltmenlos do cena; 

HOimircaT todos os ponton dff intcrst-gao que obIqo oquem do 
piano projetantt; 

Sc ainda csiatt algup ponto de intcrsc£ao, towr; 

Ilotctminfir dcfieea ponto 9 <> o mais proxiDao do obsor voder jaf 

Se eats ponto c iLuirtinadO Df , fOCOr CGt“de -ponto t- COT-do-ob jo to 
Caso conT-rario iazer Cor-do-pontO : ** Cor-dfl-SOffibro 
Fim. fazes 

Caso concravio faior Cor -do -port to Cor-do-oeu,; 

Ansazenar Cor- do-ponto 

Fim faecr 

Fin, 

Observances 

„ 50 - Sisteca de coord enad as do observ-ador 
. 5C - sisterra global de co-ord n nad a it 

. -jlf - lies so ponto ton- so a visade qua e a secti-rets quo sc apeia r,o 

ponto observador e no ponto da tela tanboa an c-oordenadas 

g lob* is); 

, \2f - 0 pon to maid p£ f 1 0 *■. o tin loo v i Hive 1 „ 

, |$[ - 0 ponto *i ilvsiinsdo. aa a visrvol polo fonte. 

, 0 edgoritmo acima e Lima liaplifkafflo do slgoritnvo chamado 

""Ray-Tr^t ing M , gwe aa base i a no acompasibair,fjpi-o r at raves de medeiagen 
HLatenatice, dps raids visvaia em Huas intera^oea Con os objetos da 
cetia . 



Figura t - Etapas pans dn ttm quads *>, 



culo vetorial devern $er do domfnio de 
quern pretends desenvoJver qgalquer pa- 
cote gr^fico. 

A linguagem a serutiJizada na progra- 
mafSo devera ser qualquer uma cujo 
conipilador gere eddigo eficiente. Lin* 
guagens que peritiitem a qstmuira^ao 
dos program as (Pascal, C e mesmo um 
bom FORTRAN) sac tainbem recomen- 
diveis. Algumas pitadinhas de Assem- 
bler, para a cria^So de rotinas muito 
exccutadas, sag bermvindas na fase de 
tune-up do pacotq. 

UMA EXPERlfNCIA A 
QUATRO CORES 

A implementa^o do algoritmo da fi* 
gura 1 em um micro foi uma experien- 
cta, acredita-se, pioneira. 

Scguindg o mais de pwilo pO$$ivel as 
recomenda^'&ES antqrtores, dever-$e*ia 
dispor de um micro de 16 bits com ca- 
pacidade grlfica. A gloria seria se ele 
possufsse a co-processador i^0S7 (pro- 
cessador opeional dos micros de 1 6 bits 
e dedicado operates de ponto flu- 
tuante). Lnfeiizmente, nao se pdde aebar 
tal gracinha. Dispunha-se de um com ca- 
pacadade graftca e sem co-procesiador c 
outro, de [jutro dOno T com o co-proceS- 
sador, por^m sem eapacidade grlfica, 
Contomou-se o probiema da seguinte 
forma: o programa deveria gerar um ar- 
quivo contendo os codigos das cores dos 
pixels da tela. Esse programs deveria ser 
processado pelo micro com o 8037, Rsse 
arquivo seria, entSo, lido e interpretado 
pelo outre micro, o co]n capaeidade gra- 
fica. 

A linguagem deveria Ser qualquer 
uma de alto nival para a qua! se dispu- 
sesse um compilador que gerasse o c6di- 
go nativo do 3087 pas operates de 
ponto flutuante... Turbo Pascal! O pas- 
so imediatamente seguinte a depura^do 
foi o de con veneer o dono do micro que 
o sgfrimento de ve lo processar por ho- 
ra$ e hora$ seria compensador. De fato Y 
alguns dos testes que apresentumos ne- 
cessitaram de coisa em torno de dez 
horas de maquina, e o$ resultados toram 
compensadores. 

m 

£ 



Lutz Antan;a M. P6rsira A Gcrtinte dti Sj'iffi’ 
m$z da Smith Snternationai do Brail i. Dosdts 
I960 se interest por computet^o grffica a 
awafmenie 4 ala no do carso dc Mestr&do em 
Fn format ica da PUC, onde amende or tenia/ 
sue dissertogao para a dstto da Foiogritfia Sin- 
tdtira, lz tambdm coiabosador de MS desdo 0 
ntimero ?. 
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ASSINATURA AN UAL 



Sa Lftefidftseia assinar MICRO SISTEMA5, p-Kjenchu o cupom 
f()u urris . case voce nio queira conar a rev^ta I . 



. Nome _ 

Prpfssao.'tarnci 

Empnesii . ; 

£nrtfirecq para ramessa . . ... 

jCidadc CEP Esi&tio 

MICRO SI STEM AS . .Cr$ 170.000. 



Preen cha un cheque- rtominal a ATI Editors Ltcif* a snuie para: 
Rio de Janeiro: Aw President? Wilson, 165/gr. 1201 
50230 - Cenlro - ftJ - Tel. <021) 262 6306 
S3o Paulo; Rua Oliveira Dias, 163 

Jgrdinr PgultsTa - 0P133 - Sac Paulo (SPl Tel: 1011) 853 3800 
Seu recibo sera enviado peb corrieb 



ProjetQs fi Servigos ^VliGTOl 



Digitagao naa e mats problems 

peco enwbrenn peb correio □ serviso 

fillSisave Enlist 



(Cr£ 45.000] 
Rrogrenas de interesse 



[Cr3 19.000] 

MS n?, p£g. Vabr 



Projeto MICRO BUG 

□ Sim. desepo neceber a fita MICRO BUG. 
com certSu de refengneia e manual, 
pelos queis pegerei CrS 75.000 

Para isbo estou enviando cheque no valor de 
CH® s ATI Editanr. 



NOME 

ENDEREQL 

CIDADE .TEL _ 

CEP ESTABQ 

ATI EDHORA LTDA 

Aw: Presidents Wibon, 165/1210 CEP P0030 
Rio de Jensiro/RU - Tel.: (DPI) 262-6306 



SOFTWARE PARA LIGACAO COM 
O DISQUE BOLSA DA BVRJ 



O Disque Bolsa INTELSOFT permit e receber os 
dados da BVRJ por usu£rio sem rtenhiim 
conhecimento de computa^ao. 

O Disque Bolsa INTELSOFT permits c 
arnuzcnamento dos dados no micro de forma 
eficiente para consultas on-line e relattSrios. 

Na tabela ao lado voce encontra as caracteristicas 
mais importantes do Disque Bolsa INTELSOFT, 
Compare-a com os concorrentcs. 

PRECO DE LAN^AMENTO: 60 ORTNs, 

Pre^o vaJido ate 31 de mar90 de 1986. 

Os sistemas da INTELSOFT s£o operados atraves 
de menus c acompanhados por manuais que 
descrevem detalhadamente a sua utiliza^ao. 
Qualquer pessoa pode operddos mesmo que nao ■ 
tenlia . nenhum conhecimento de computable. 



- C A R A GTE R 1 ST I C AS: 

RccupL*io l&ctl de qualquer anquivo 
dtsponfvel ng BVRJ, inclusive do bedetim 
instamaneo. 

Consultas preparadas antes da conexffo 
visando g. maxima eccnomig, de tempo de 
Ca m Lin ica^ao- 

1 Crftica □ integridade dos dados transmit id os 
g [mrmite h verit iCaqS'Cn d*S dados atravfls de 
dupla rsovp^D, 

Controlg as mGnsagens de errO tranSmitides 
peb BVRJ. 

RelatArios.oompIfltosfl com class if ica^o dos 
dados pels data de pregao ou pelo o 6 digo da 
uv-Ti d Li do set or. 

Mant^m series histdr ices das indices da 
BVRJ a?rav 4 s dnS hoist irs da- fechamantO- 



Permite a enr-rada e altEra^aO ma nual dos 
dados. 



Perrmte qu? os dados do siscemg sejam 
convfrt-d os para paootas Como o dBASE It 
ou III, LOTUS 1-2-3, VISICALCou por 
programas escrilos em qualquer linguagem. 

Flexibilidadc de sdaptac^o a services ainda 
a serem def initios p&la BVRJ. 



OUTROS PRO DITTOS: 



CQMTABILIDADE geral 

Funciona em tnodo online esuporia 
atfr 66.000 contas ou lan^amentos. O 
Plano da contas 4 d^fimdo pslp 
usuSrio e os dados podem ser mani- 
puladps por pacotes gome o LOTUS 
e o dBASE. 

PRECO: 200 ORTWs. 



TFAtSlSFERE 

Utilitarin para cordunicagap €ntrg 
micros com o objstiuo de transfwlr 
arquivos. Os micros sfo ligados por 

Cub 0 Jtrav^Sdas purtas sanais & vanaa 

arquivos podem ser translaridos com 
um Onico comando. 

PRE 0 O - d.G 20 a 40 ORTMs por micro. 



CGNTA 5 A PAG AR E RECEBER 

£ istema rin Co-ntas a Ha car a Rcc b'b lt 
com restores de FluxO do C^ixu. 
Pode ser integrado a Contabilidade e 
parametrizado de acprdo cam a£ ne^ 
csssidadGsdo usu^rlo, 

PRECO: 200 ORTNs (a partir de 
marfo/BB), 



INTELSOFT 



INTELSOFT Projeto e Oesenvolvimento deSistemas S/C Ltda, 

Praia da Flamento 66 Sola 1 104 CEP 22210 Tel. : 1021 1 265.3340 - R io dg Janeiro ■ fi j 
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UDG3 

Jose Rafael Sommerfe/d e Fernando Luiz de Carvalho e Silva 



Na edigao de novembro, mostramos um interessante artigo 
sobre o uso da fungdo UDG no TK90X. Essa fungao pennite a 
redefinigao do formato de alguns earacteres, permitindo, 
assim, acentuagao em portugues (UDG 0), em espanhol (UDG 
1) ou atd mesmo a criagao de pequenos desenhos (UDG 2). 
Este ultimo recurso facilita bastante o desenvolvimento de 
jogos, permitindo ainda que se criem seres extraterrenos, 
naves interplanetdrias e muitas outras ilustragoes. 

Pordm, como tudo na vida, a fungao UDG 2 tem suas limi- 
ta 96 es. Ela permite que se redefina apenas 21 earacteres, que 
sdo os earacteres graficos do micro de A a U. Se tivermos en- 
tdo a necessidade de redefinir, por exemplo, 50 earacteres, a 
fungdo nao nos permitird. 

No entanto, nem tudo estd perdido, pois nessa hora langa- 
remos mdo de uma simples e poderosa ferramenta, que nos 
pennite definir 96 novos earacteres: o programa UDG 3. 



COMO FUNCIONAO PROGRAMA 

Para ativar sua execugao, digite RUN ou, se desejar utiliza- 
lo com outro programa (durante o desenvolvimento de jogos, 
isto pode ser interess rte), digite RUN 9000 ou GOTO 9000. 

Assim, logo apaiecera a pergunta “Transfere Tabela? 
(S/N )”. Essa pergunta tem como objetivo saber se ousudrio 
deseja inicializar o formato dos 96 novos earacteres, ou seja, 
se o formato a dar aos novos earacteres criados serd igual ao 
dos earacteres normals do micro. Dessa maneira, se esta for a 
primeira utilizagdo do programa, apos coloca-lo na memoria, 
deve-se responder S(sim). Caso o programa ja tenha sido 
utilizado, deve-se entdo responder N(nao) ou simplesmente 
ENTER, que o programa ira apresentar o menu. Fica, pois, 
convencionado o seguinte: os earacteres que serao redefinidos 
pelo programa sao os novos criados e nao os earacteres normals 
do micro. 

Ao pedir a opgdo l(redefinir), o programa exibird todos os 
earacteres no video, e no inicio deles (sobre o cardter espa 9 o), 
aparecerd um cursor que indicara o carater que se deseja 
redefinir. "Para movimentar esse cursor, utilize as teclas 5, 6 , 7 
e 8 , que o fazem deslocar-se na diregao indicada pelas setas. 
Quando estiver com o cursor sobre o cardter desejado, tecle 
ENTER. O programa entao transferira o cardter que estava 
sob o cursor para a posigao da letra A grafica e entrard em 
UDG 2, ou seja, a partir dai, os recursos de edigdo do cardter 
serao aqueles jd conhecidos pelos usuarios do equipamento. 
Ao terminar a edigdo (CAPS SHIFT e 0), o programa voltard d 
ultima tela que apresentou antes de entrar em UDG 2 (a que 
exibe os earacteres a redefinir). Nesse momento, para visualizar 
os earacteres redefinidos, digita-se R e para visualizd-los na 
forma normal, digita-se N. 

Observem — na tela de apresentagao dos earacteres — que 
ao teclarmos ENTER, o programa envia para a fungdo UDG 2 
a defini 9 do do cardter que esta aparecendo na tela, no momen- 



9030 1“ pFEK 2-2731 >£50 THEN 

ft 64-599- r. r.*^27£S 

9010 IF PEEK £3 731-*: £50 THEN 

ft 31331: LET k =0 

902O INPUT "Transfere Tabela 

S/N i IF *% = "■*" OR 5* = " 

HEN G05UB 9700 

9030 LET x =0 : LnT y -2. ; CLS 

NT " > u DG 3 !i ■’ ■' " > 1 -He de F i n i r 1 ! •' 

Le r CHft$ " ' N >3-Grsvaf CHR $ " 

-Fi*n aiizar ” 

9040 INPUT OP: IF Op<l OR OP 

HE N G OT D 9030 



9100 PRINT 
;, s !in 
9132 PRINT 

9104 PRINT 
9106 
91 S 6 



=* 00 ! 



“HEN CLS 
5+c p *133 

0 , s ; 11 

'0123" 



UDG 



3 IN 7 



< L M N 0 P Q ft 5T U U U X v 
bede f ghi'j K L U 



INT ’ipqrsUfVBsysi 1 3- " r 

3113 PftUSE 10: LET ft $ “SCREENS 

, x ) : print inverse i ; rt y , x ; a s 

3114 PAUSE 10: PRINT AT 

9116 LET X =X + ■ INKEY $ — " S " AND > 
3 j - i INKEY $ = J! 5 ” hND X > 0 ) 

3118 LET Y =Y + < INKEY $ = “ 5 11 AND V 

> - \ IN KEY $ - : 7 : : AND Y > S 3 

3120 IF Y=5 AND X > 15 THEN LET 



IS 

9122 IF IN KEY % =C HR $ 13 THEN LET 
Z 1 =2 56 +PEEK £3606+256 *PEEK 23 c 07 
: GOTO 9132 

3124 IF I N KEY 5 = C- HR 5 12 THEN GOTO 
3030 

9126 IF INKEV* = "N" OR INKEY $ = ”>>" 
THEN GO-bUs y4%30 : GOTO 9100 
S 128 IF INKEY $ = ,: R ’’ OR INKEY i*T ,! 

THEN GO SUB 9500: GOTO 9100 

3130 GOTO 3110 

9132 LET Z£=UC0DE : LE 

T 2=22+21: FpR F=Z TO 1+7 
3134 POKE USft ll! fl " +F-Z .» PEEK F 
3136 NEXT F: CLS : UDG 2: CLS 
3 1SS FOP F= USR "h" TO USR “B 1 ' -1 
3140 POKE Z&-*31S3R + K + f-U5R "ft" .P 
EEK F 

3142 NE X I f : GOTO 3100 

3144 GOTO 200 

S£00 G03UB 9600 

9210 LORD a$CO£>E 

3220 GOTO 3030 

9300 GO SUB 9600 

3313 S RUE a SC ODE 3 1332 +k, 7 53 

3320 GOTO 3030 

3400 POKE 23606,0: POKE 23607,60 
: RETURN 

9500 POKE 23605.63: POKE £3537,1 
£3: IF THEN POKE 23607 ,251 

3510 RETURN 

9 S 00 CLS : IMP UT “ HO Ffl £ do BLOCS 

: " ; LINE S$: RETURN 

3700 FOR z =13-616 TO 163S3 : POKE 
Z +16216 + k , PEEK 7. : NEXT 7: RETURN 



UDG 3 



to. Assim, se quiser alterar um cardter ja definido, pressione 
antes a tecla R para que o formato redefinido apare 9 a. 

Para voltar ao menu, digite CAPS SHIFT e 0. 

Ao pedir a op?ao 2 (leitura), o micro solicitard o nome do 
bloco. Isto e, para os casos de antigas redefini 9 des jd feitas e 
gravadas em fita e que se deseje alterd-las ou simplesmente 
consultd-las. Informe o nome da grava^ao e posicione a fita 
no inicio da gravagao desejada. A instrugao LOAD jd estd 
embutida no programa. 

Ao pedir a opgao 3 (gravagao), o micro solicitard o nome 
do bloco de earacteres, que se definiu e que se deseja gravar. 
Este serd o nome usado em futuras leituras desse bloco de 
earacteres. A instrugao SAVE tambem estd embutida no pro- 
grama. 

COMO USARO PROGRAMA 



Descreveremos agora duas maneiras basicas de se utilizar o 
programa: 

— Apenas para definir novos earacteres; 

— Definir novos earacteres utilizando-os em um programa em 
confecgao. 

A primeira maneira serd aquela em que o usuario simples- 
mente quer ver seus earacteres definidos a sua maneira, perso- 
nalizados; ou, entao, aquele usuario que quer fazer um belo 
desenho para utilizar em aberturas de outros programas ou 
coisas assim. 

A segunda maneira se aplica bem ao desenvolvimento de 
jogos, onde a Arte se funde com a Logica para produzir um 
interessante e bonito passatempo. 

Abordaremos entao como fazer esse trabalho. Antes de 
iniciar o desenvolvimento de seu jogo, carregue o programa 



30 



MICRO SIStEMAS, mar9o/86 






UDG 3 n& memoria. Utilize para nunicrafio das linhas deseu 
programs os mlmeros de 1 a 8999, poi$ o UDG 3 comega a 
partir da liriha 9000. Camece com a dcsenvolvimento de sen 
jogo > e, a medida que neccssitar de caracteres especiais, execU' 
tc UDC 3, criando-os, Lcmbre-se que durante o usodo UDG 
3 S indica-se ao micro como descjaitlos vcr os caracteres. Sejant 
R (Redcftnidos) on N (Normais) A$sim, apus deftnir sens 
formatos, pense no que seri feilO- So voo£ quiser lestar como 
ficara o movimenio da nova figure, deixe-os entlo cm Rcdefi- 
nidos. Se voce quiser conrinuar a fazer sen programs, deixe-os 
port ant o em Normals. 

Como pods ser observado, o programs cria 96 novas carac- 
teres. Ponfim, se esses caracteres foreni lit ill* ados, os 96 carac- 
teres normals do micro lift) poderSo scr vjsios. Isto seria muito 
problematico para um jogo que ulilizasse 90 itovos caracteres 
e que alem disso, no im'cio, tivesse uma grande tela com ins- 
tnugSes. Como exibir as inilrugdcs (que s£o esc ri las cm porlu- 
gue$, tsgtio) $em cstar com a dcfimgao conet a das letras? 
Exisie, pois, uma maneira de se fazer com que o programs 
utilize, cm determinado momenta, as carac teres normais e 
ainda, cm outro, os caracteres novos, 

Para utilizar os caracteres novos; 

48 Kb - POKE 23606,88 : POKE 23607,251 
16 Kb - POKE 23606,88 :POKE 23607,123 
Para utilizar os caracteres normais: 

16 c 48 Kb' - POKE 23606,0 : POKE 23607,60 

COMO £ FEITO 0 PROGRAMA 

Os caracteres normais do micro fie am deftnidos na memoria 
ROM, an eontrdrio dos caracteres graficos do A a U, que fleam 
na memdria RAM do cquipamento, podendo ainda set altera- 
dos. No entaito, o micro passu i u~m varilvelchain&da PTBLCHR 
que fica localizada a partir do entile rego 23606. Essa variivel 



contem o endcrego de defmigao dos caracteres. 8c nmdarmos 
o conteudo dessa variivel para uma £rea da mcmOria RAM, 
o micro passara a pegar nessa area da mcnaoria a definifSo dos 
caracteres, c por esta area pertencer a merndria RAM podeie- 
mos alteid-la a vontade, Obaervem que a defirugdo original dos 
caracteies (aquela que estS na ROM) nio c (e n3o pode Scr) 
aiterada, Assim, se quisermos usar os novos caracteres defini- 
das, colocarcmos cm PTBi-CHR. o enderego que con t cm os ca- 
racteres da ROM, c sc quisermos usar os caracteres novos, 
eolocaremos cm PTBLCHR o enttercgo que contain os caracte- 
res da RAM. Esse prinefpio t’az com que, ao tedaimos R, apa- 
tcfam os caracteres redefinidos e ao tcclannos N,apafefam os 
caracteres normais. A uniea coisa aiterada foi o conteudo dc 
PTBLCHR. 

A area da memoria RAM escolhida para guardar o forma to 
dos caracteres foi a area situada logo abaixo das definiftfes dos 
caracteres graficos, ou seja, nos micros de 16 Kb. a partir do 
endcrego 31832; e nos micros de 48 Kb, a partir do endere^o 
64600. Para proteger essa area, foi entio baixado o conteudo 
da varidvcl RAMTOP em 768 bytes, Assim, nem mesmo um 
comando NEW dcstrmra as defuu^dcs fettas, 

Dcve-se ietnbrar que a area para programas em BASIC fica 
inenor cm 768 bytes c, assim, programas que utilizem a mem6- 
ria totafiTiente terao problemas de espa^o, 

Esperamos que este programa ajude-o a confeccionar belos 
jogosl 

Ate breve. « . ■ 

JE-L 

Jos£ Flafeef Sommeffetrf trpbatha hi mass dir CirtCG &rtO£ com programs* 
de mjcroeompUIddomi, £ coieboredor dir MtCRQ StSTEMAS 
dffsde O numsra 22 6 autQr do fivro "ApUcappes PtissOuls piM O TK 8 $ r \ 
ds oditara Campus. 

Fernando Luiz de Carvalho e $ffva passu i a curio de BASiC Avanoado, 
da UFF. F umirio dos micros CP- 200 e TKSOX tr, awaimems r esiegia 
no Departamimo do Tsitcomon da EmbraTei. 




Consuiie-nos 



almcladacia 



UNIT RON Ap II 

Computanor pessuaf. 
Microprocessad&r 
6502, 4&K de 
memoria RAM e 12 K 
de mempria ROM. 
teclado com 
maidsculas e 
minuscuEas. Sceneclores 
para expansOes, 

UNITflON T,l. 

Aiarn Pe regmr as car^ciensticas dp a Pit, 
passu io T&clado Inteligenle unicrani. que. 
djretaruenJe. como em maquinas He 
escreveF. famece maiuscuiai / miiruscuFas 
a acentuagao Pa lingua portugue$a 
Apresenta a caracteristtca especial de 
permiiira programmes oe caeta tecta com 
comandosou fungoes deiiniPas pelo 
uauarto. 

Na Computer a re. enconbam-se tamb^m a 
disposigaa, tcria$ as interfases / placas e 
perifertcos do Uritron. . . Consul tern os. 



* ASSISTENCIA TECNICA * 

(021)262-1886 

* T6cnicos especializados fabrics 

* Atendimento imediato 
* Contratog de manutenqao 



KOSSO SHOW-ROOM 

3 - INFOSHOPP1NG 
um do Gat&to, 31 1 



Para quern pensa grande, a Computer ware 
lem sempre os mei Imres precos do 
mercado. com estoques scSicientes para 
uma entrega imediaia e conduces de 
pagamenra a sua escoipa. 

AI^ji de desoonlos aspeciais, a 
Computervraie cfereco as$i$3^ncia tecnica 
com piofESsionais altamerue especiaiizados, 
0 meihpi atendrmemo, conrrato de 
manutengao e uni a iniinidade de vanragens, 
qiie fazem a nossa macro diiereaga. 



xompulador 

SsWcpu 

MK iTiomlor de v»deo 9 

x aiim de 2 slots adicionars pata 

i,feS»PCP^ r 



Rio - Av, Almirante Barroso. 91 - 1 1? andar ■ Tel.: i.0£t) 240 7244 
Rio ■ IN FOSHOPPING - R.doCateta, 3ti - (Show Room) 

Sdo Paulo ■ Rua Jesuino Arruda. 797,'Gr^po 22 - Tel.; lOll) 031-7446 
Cu rit iba A v. J oao G ualberto. 1 375 - 1 P an dar - Tel.: (041 ) 253-64 33 



COISA DE MACRO 
OS MICROS DA C0MPUTERWARE! 
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Esqui 

Roberto Co/istete Junior 



Esquiar na neve, numa montanha, 
exige grande habilidade e reflexo apu- 
rado. E realmente um desafio desviar 
de obstaculos e manter o equilibrio em 
alta velocidade. Assim, mesmo querendo 
aceita-lo como hobby, caimos na reali- 
dade da escassez de “patrimonio mone- 
tario”, alem de termos um clima que 
difkulta a pratica do esqui. Contudo, 
temos no computador um instrumento 
para expressarmos tod a a nossa criati- 
vidade, com ilimitadas possibilidades 
que nao nos negam a alegria do diverti- 
mento. Dessa maneira, apresento este 
jogo que certamente sera apreciado por 
quern n5o deixa de aceitar um desafio. .. 

O JOGO 

O objetivo do programa e controlar 
o esqui (letra H), tentando percorrer o 
maior numero de metros possivel. No 
entanto, deve-se evitar as arvores que 
no decorrer do jogo vao subindo na tela. 
Na apresenta 9 ao e pedida a velocidade 
inicial do jogo, sendo que quanto menor 
o numero mais rapida e a disputa. 

Apos percorrer 1000 metros, o jogo 
comega novamente em outra montanha, 
porem, mais mgreme, ou seja, aqui o 
esqui obtera maior velocidade. Caso o 
jogador bata com o esqui numa arvore, 
sera impressa uma mensagem, o total de 
pontos ou metros percorridos e o recor- 
de. Mas se voce nao bater e conseguir 
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Listagem 1 



lflREM UITORIA - E . S . - 

60 SLOU 
70 G05UB 1000 
30 LET Us0 
90 CLS 

100 PRINT RT 5,3; f" H I I I 

110 PRINT TRB 3 ; "f 1 J I I I 

190 PRINT TAB 3; Lb J U Li i 
130 PRINT RT 9,6; "DEUIL" "3 SOFT 
URRE" 

140 PRINT RT 11,11.: "1 1985" 

150 PRINT RT 15,4; "ESCQLHR R UE 
LOCIDRDE : " 

160 PRINT RT 17,5; " (l=RRPID0ol 
0 = LENTO 3 “ 

170 INPUT U 

130 IF U;1 OR U ;■ 10 THEN GOTO 17 

0 

190 POKE 16513,01 
200 POKE 16573, U 
210 CLS 

220 LET 0 =USR 16522 
230 IF 0*0 THEN GOTO 400 
240 FOR N = 1 TO 4 

250 LET B$(N)=CHR$ (PEEK (R + N) ) 
260 NEXT N 

270 LET 6= (0*1000) +URL B4 



230 PRINT RT 10 . 1; "QUE PENfi UOC 
E 5E E5B0RRRCHQU ..." 

290 IF B >R THEN GOTO 330 

300 PRINT RT 12 , 12-LEN (5TR$ R) 

; "REC0RDE= ";R 

310 IF IN KEY $ = " " THEN GOTO 310 
320 GOTO 30 
330 LET R=B 

340 PRINT RT 12, 2; "...MRS UOUE 
BRTEU 0 RECORDE" ; RT 14,6-LEN (ST 
R$ R) ; “POIS PERCORREU ” ;R;“ METR 

°350 GOTO 310 
400 LET U = U + 1 
410 LET U = U-1 

420 PRINT RT 10 . 0 ; "PRRRBENS , Uu 
CE UENCEU R MONTRNHR"; RT 12,1; "C 
OM 5UR GRRNDE HABILIDADE C0M0",;R 
T 14 , 10; “ESOUIRDOR. “ 

430 IF INKEY $=" " THEN GOTO 430 
440 GOTO 190 
1000 DIM BS (5) 

1010 LET RsPEEK 16396 +256-FPEEK 1 

6397+14 

1020 LET R = 0 

1030 RETURN 

2000 5RUE "ESSU0" 

2010 RUN 



16396+256+PEEK 



. Listagem 2 



superar o recorde atual, aparecera uma 
mensagem e a nova marca. 

DIGITAL AO 

O programa e composto por uma 
listagem em Assembler e outra em 
BASIC. Inicialmente com o Micro Bug, 
crie uma linha 0 REM com 447 carac- 
teres quaisquer e digite a listagem 1 , e 
apos, por seguran^a, crie a linha 1 REM. 
A seguir, digite a listagem 2, em BASIC, 
e estara pronto nosso jogo. Agora, divir- 
ta-se, esquiando,,, 

m 



Roberto Cofistete Junior cursa a oitava s&rie 
do Cotegio Saiesiano, de Vitdria. Eie 6 usudrio 
de um TK85 e domina as linguagens BASIC 
e Assembler. 




na ADDRESS voce ciczvora 
quolquer tipo cIg # 

Exclusive metodo de erisino 
MIDEOTIEHCH que; se utiliza da 
mais moderna te'cnica VISUAL, 
o video-cassete. 

Ediiqao microcomputarizada. 
Curso de BASIC TOTAL, e de 
APLICATIVOS apple *- 
TURMAS ESPECIAIS 
PARA EMPRESAS 

FAQ A SUA RESERVA JA PELOS 
TELEFONES: 

011211-5348 e Oil. Z12-0370’ 

ADDRESS 

Video 

Computer 

Connection 

Gpple rnt|,|:n lislir ad.ci npple ccmputer 

Rua Natingui, 1 199 

CEP 05543 — Sao Paulo — SP 

Alto dos Pinheiros 



32 








GARANTIA TOTAL • MANUAIS INCLUSOS 



ISl - HOT Oil E EXPOT ■ JO30S EM FM 



Fiaj.'5TJWTRM5ta Jfcwrtg-a r^LT 
F1M’ WILL ITS WAREHOUSE iiapg art »r 

FIK^IWXJCHTWIE v t. pjotannmai 

FlSi • JACKMAN ii-:ii3e cfcl-Jftto 



JOOOSIM FTTA PARA. TK9Q3C 

Fai'JUDffiT -E'Mjnutwrirak] 

Fjq; ■ AgvtR&i -3”w. 

F?0J ■ GAUaO ■ JOfP S? UtkjfefO 
Fs<m ■ AhT ATTACK ■ >; Mj-a k ‘r- 
fMS ■ GYKR RATS Cu 3dCC cm « 'Jtt! 

F!05 ‘HOhaCIGE AiABAhHAS- Umg'ande «KC' 

FjflF - be- T Ank Basaftitom r a-tiu95 
FaJj^SiwguiKSRd Hv&O resaonaile 
Fffl^OWXt :■-. W 5 MI O 3 
Fail) - HOflACiO 6SOWAHOO ■ ■_■ J c^:| ca 

F3u ■PYJAmaRi.Ja TafJt vBrtcarstt flfiate 
rau - AMDHCua f 

F5n3 - Pt«i|TMS ■ i><, :=n g m tsfla astaca 
HiSSILE C .wx'-siitfE 
FSiS - PSST ■ ;:«r-ija w rificE 

Rl6'NAW£ UlhSU 

FSlT ■ IflJNGRY HORACE ■ Gg 3ECO DOT K S.aBiCE 
FI'9> FlhbALL T’.jrrc.-i EV 
Fit 9 ■ SPACE RAISERS Wp* SHU pbTO 
FM . ASlfiO BLASTER ■ Cud** com os masonas 
FE1 . JET SET WILLY T*ii g ^ '. ty com 
FHJ . -3HD5T HL'AlT Stntiwiij veraii Ct 5 a:roan 
FH1 . 0 HEDUERED FLAG F be m F’ 3? >enScfe 
FHt -TERMS 

FaS ■ ROBOTICS jks . -*x»f "r • 

F2K- GALACTIC ADOUeTOFlS C.-cgcs'K-Qg 
Fa? - SNUCA “fe-Js - ir lOc.is :e :v:-.i; 

F223 - AIMED OUT !!:. :ii-::i aor :■. i^a 
P229-«q.HWIlMW F^LfiMn?Kten!« 

F2Sd - GO Lit - Enable l itil |Mp 

FBI - CFOEG ■ "e- If i. a- l -,i ; ■■■ i 

FBJ - JUMPING JACK - Cudifla tfrY- is lenaas m dfic, 

FB3 - GROUND ATTACK - Flf YOe Hfl LJirra nngal 

FBI - MONSTER NINE - ttffl U WW (3 rnm 

FH5-5EID3AB ATTACK £.a u iIl.,:!: lias in 

FB6-GAJUU(XIANS DiK-dOt rr^ws: 

Fa? - LIGHTER JWLjQT Pifleir: ' iSSjijH 
F23I- TEflROn GAXTL *3 Aqfc Vi m-i imecg 
FBI - TRADER Ur utii e l-:; jdj t£> fr^n 
FM-STOC AndeTOlUm-iafiCjdJJoil^abiiia 
mi - PEHETRATDH jesjufl n maiy 
F143 - GH05TEIBTEH5 CflQfl aci linatrt^i 
Fits - LAZY JOKES - Sill WE driOS oOfe^amtffi 
F1U-1S91 Ufa iTUSEt-m rulLia 
Fits - CAVELONi ■ AjrtriiAa m ca;ek) 

Fits - ARChTMTUHE ■ Wfe C Or<li D'JLub 
Fit? - FPEO ■ Cfi-^rtCa C MilK Cy CLiTTjc 
PUS - FANTASTIC VOYAGE - Va* fa HSIJM Hmm 
F319 - RYIR RAO ■ Fe is 'a a rfc' e pjrtfidb 
F3M - SCUBA DOE ■ Fw&fa Ei p«fraii c<s roar 
FBI - ACUAPUNE ■ LKni a'ci’a m Tff e oe'^f 
FBI - KlSMC CMGA ■ Affde 0 anjg'. a viiir 
FJ53 - PEGASUS ■ LXrSI'.a M akfftger’as no JJ'inK 
Tit - KCATHLWI I ■ ftKM a Oimpcis 
fBS - Sift LANCELOT ■ Pejuf M MH.fffS no CEiEto 
'B5-U0RSTEa -SHELL J. :ilOM«onlefIB 
fa? - ARCADIA ■ Safer ~a a (raeteaa i=ia 
RS6- POTTV PiUHTtA - Pwtfia as quacrad® 

»H» - MW FflK/EFi ■ Sovc- pea tx FWEf 

?B0 - BOOCa BOO ■ Awm c xpo e-s -a'so a nc^a 

FH1 ■ ISCapE ■ 5aa :« : a t'-' oee - E^roxlo 

FH? ■ ESQUIUO EttHE • Lima a wflUfa nc esM 

F»J ■ FRESZS ■ DeeLma 06 nr*jx- »-?c s hos -jbKs 

FKt . TWNJiM fi as c- a «ao £- 30 

FSt ■ SPY a SPV ■ G^na ce eia *: am 30 

Fife.&ELTAimG FoVec-CSSiF Yie-oO 

FS?-W5IaAN!A Am;,® k .of =n*w 

FJ$) THE f YRJLMIE A-tiflnana primaSt 

FJffl ■■ WORSE AT SEA ■ Uafesrti* g nam Muancb 

F3in . autonomy - fcni* eg c*rw 

FIT! - AT1C ATAC Fpcma o casicV ®axitnaM 

F3T2 ■ TPAhtl AJA PfeGWtfNtv^EUA 

FIB ■ UCLA* UAJJL TiiL-n:..! sm m -| K <jg r.jr>> 

FITa-H'jH J tOCk Ow»itvdf»MSlg 



FE-I - FLIGHT SiULlATQF H= C f -.tVi 

F*34 ■ POLAR STAfl GgHia pdir em 30 

FAfij.aOHPAH Khaawwo jngt £ a£lo 

F*li . GDELHD MALUCD ■ 0 LCff'C isna'a C orsJd 

FA4S . FasHA PRETA L ,iaa ce Ki 

F 4 » . HAJUHTEG HOUSE FitiZb ntunvado 

Fa]? ' BINARY LAND ■ Ajrfs aaa [HUB ralaa 

FAH’UUANS DHiteUecimH 

FAK’ HERO • £#cf OS (li'fi’Oa 

FAlJnCCY BAlL Ifi'rjL =i (Mdaa 

fltl- PYRAMID - Uaf ■>^oap a T ‘3f 

T*il- SPOOK EacecAi cm rrmaiK ie .es 

Jtll-ThSIELiS Saf/f a ^rtoesa. 

ftlt-TFlMBOY-Ft^aroa 

Ft I S- UKOlf PATROL ■ a' .tie a scoeri c^g ca Ua 

Ftll- RiitR RAID ■ CcCiS: coro ca ® a lacu-gs oo 

ft|7 - FYTFALL I! Ssnrg We ao UoA^n 

Ftll-FROGGEn ■ Apia caapo a a sap*ica 

Fill -BEAN HAIDER - OKendl-M MH Bmg« 

FtB- SUPER COflPA Detencbsai 

Ftai - 3D BOMKHWAH ■ i\ -mof g moneiic 

TAB- O6SH0S ■ Pfi^CSM iwngot raflt'a® 

fAB- SPORTS I VA-SiCOropi'Oea 

'All - SPORTS II ■ wa s 3 

FAB- KEYSTONE REAPERS F'ffl'J 0 terto 

FAB- DM FIGHTER ■ OBlma :c. awics >«i g-m 

FAB- SHADOW OF TFS BEAR ■ t^oc-r‘7- mrrV j ■ ■ SN>i 

F4B- HOT SHOE - t.enliiaiwJH! 

FAH- ANTARCTIC ADYENOlBE ■ rectcfca A-im^.i 
Ft*. HUNCHBACK ■ Sa\fl a pmrcea ca Irrrc 
F131 - P4CR5ENAK ■ CiKlaBo w ce d'afl®; 

FA31 - DECATHLON ■ incites cw=t d-roxas 



PREfO DE GADA .000: Cri UjfiH 

PARA GAEA 1 JDGOS COMPRADOR ESCCLKA JW 1 EhCElRO iNTEflAHEkTE 
GRATIS. E AN DA SAhHE HAl£ UU JOGO: BLACKJACK. 



CP 400 - APOCAllfVOS E UmUTAHlOS 

souonn catalog 



CP 400 - LmUTiMCS ew Fn* 



fimi-slper screen 51 >; a ur*) ^^#1 k.wo 

F1S1 - TAPHWt S^cnaaM' ca (tea M&HK' 



APPLE II ■ JOOOSEBFECMB E M DISCO ■ CADiCrJ 1SO.DOO 

DMl - AARATECA ■ .ge rjn/e cf veiac: 

D3B1-CONAH ■ -^fnSi i^^ilac' roe 
DKH - G HOSTS USTEHS ■ AvCffu'-i yuii ii - f 
OKU - SOMMER GAMES ■ i MflS LaSiS aspGTOvaL 
DMi-CPI .CuCfK'nsgaiK M-aaiiia 
030S-SKYFDK fWBumcaciPartreadle 



APPLE II ■ J3C0S EW ffl SCO DA PSIOHOCAD 

DMi? - AZTEC • Dec i'f a f a ■ ce azfea 
DJM - PICfinLLY ■ SensaoiKiA e=cs 
Dm-SHiT5MA ^aitas-'cseera-g'' ;|K4 
0310 - DOHKET KOHG - Marti Wfraageifc 
P3i 1 - fri fall - •:-!? ■(<>:*■ eif. Msanc- 

03H-FIEWAK ■ = cc«<3rtie e ^*»-«cc 
O313-0R3ITR&N ■ ir-neiroji: acmig. tam 
03n-fl'3EST ■ "ante » mtwl? nnoAns 
0315 - JUNGLE HUNT ■ =n V! na setya 
P31S ■ CAVERNS OP CAUSTO ■ tif.'Lra 
EgiT - PITFAll II mj'. ra*Emai- K j a«a5 
utr.B-TAJ.u4h [a5.!fl!c nn^armjn 
OJli.HeRK.TrajMnairao 
DJM * GdllAo ■ # lasvbig 

D431 - BUCK ROGER J • ^tsa enw aspapjib-e 
Dili. LOAD RUNNER Pigga « Ksams 



PRECO«CAOAJM(kCYiMjMa 

W'.-:A CADA 2 JDQOS GOMPftAMS ESOiJLHA UU 7EHCER0 INTLRAME.HTE 
GFUT3£. EA1H0A GANRE WA1S jMjOGB: PEMDSPAC1AL 



CP400JOGQS EM FTTA 

FiH ^ MCWTkOn - C ago roam isroosc de ant( 

f 'W ■ DOUBLE BECK ■ -'leYia at roa^M 

Fi U . DRAKnian ■ £aM 0 ai-iro'd.ia no esti;n 

F:-it ■ ICE -HMKY ■ YK<fy w 3 * 

FiS ■ UR. DIG d-:.-o:i a a r -«'yii r ie 

Fl* ■ iNTLFlCtfT i ■ [lesi roa ot rtThix aalaoroM 

FIOMASTAfl-Jc^flaawrtii'a 

Fl* . &MjLADOfi PE vftO ■ bMteNfl c^^3aaf a z :4 

F 1 »^P 0 PE.Y£ DernjtagSrDtiH ' 

Fl i-J ■ GAj®N Fsllastoio?]! 

F11 1 ■ ZAJCKGN 0 meiiic.' (egg pa-a rrotta 
F11 3 - GERU DalmA-se ow ga-roes 
Fill -DEVI. ASSAULT -w, jrans' 

FI m - Afi TRAFRG CpkTfiOL . Ohi* d aenoodn 
F11S - CRASH MenJa eg gga 
F11C - SPACE WRECK Tgvnga s «3 t=ia aepaca 
F11 ? - SHAFT 3 s.--.no 5 pg-Tlj? g ro.ag G.'daJD 
F113 - DESERT RICER Orvnj da oa-iffi no 3=SfK 
Fill - CHDPPEH STRIKE Avg-v^ a tun "g ODCifec 
F120-TME PATROL Salne 55 p*a-qg«)®lE 



°REK C‘S CADA.J0GD: Irt ?S 0$ 

HAFlA CADA J JOflOS DOMJeSAOOS, ESOOlHA UM TERCElRQ iNTElRAUENTE 
GRATIS. E AN DA GAhHE UAI5 UM. JGGG: PDKER 



WKi H - UTILITAfflOS E APUCATIVOS tU CHSCO 

OXJl - KM, EJfrfbt (HAGNOSTKO 
DJEi ■ SAY IT ■ SEieii^dcif gg Vk 
msa-MUSKQHP Cg-Kf.-iistjUgtgj 
oust 'KOALA C'r-iSee gn- Onegnlrg^ 

DG55-PF:NTSHDP Gnr ij gi- -rpHisjgs 
IMSfi - THE COMPLETE GRAPHICS SYSTEM 
IMST - SCREEN WRITILR Prusteadg- cn Trj.fg? 

ES* - SPEED-MALA OIRETA 
LS5S ■ SPEED-CCNT.RDLE 31 ESTOQLLS 
CSoii - SPEED-CCNTAS A RECERER 
CSC1 ■ SPEED-fOLHAKPAGAMEhTO 
BM2 - LOCKSMITH SJd .imjifcda 
356S -UAJGIC WINDOW PftHttiUtH at TfiTH 
GSd VBffiALCIi Fla-chaadifr-iU 
LESS ■ VHflLE II ■ Eanea lie Da:!:-:-. 

EB65-- DBASE II- Ct’-F-fiK 
D361-TRI3AY Omka 
DM - WORDSTAR ■ PiKtSlffif 06 1 f/Cs 
DM-LDTERA ESPOHT1VA 
MTU-LCUD 



SOSOW 

jxm 

BOO 009 
BOO 009 
300 WP 
SOWP 
ao»o 
»ow> 

Jtt.MK 

JK.SK- 

!DE.«K 

XOtffl 

3»jSM 

scam 

JBUOM 

TTfl.CW 

ira.-xi] 

laa.'M 

moa> 

shjwo 



CP ■ JCH30S KMVCS £M FITA ■ LAN^AMENTQS 



Fill - WW ■ VmA im« «y *d» ^ 

giH- S am Sleuth Ajthiri.ic f<ICH 
FlO.KlhCTJT C-kkc-F, H yatts 



fiji.aunwffu u.iH>:"ovin 
FISJ'RAT Pgt].g gj iglos 
FlSE -SIR PI ^UnNgia'n' 



Fiji- A BALL Srnlas* rW 

Fill. MAJOR STAR Ajlsenieia subrositno 

FTS.CNAUBER3 Woenegi ^.Eipf "*'if 

FI* - CRYSTAL ?• •: -nefttwil 

-111 ■ UDDLE GLU ^MKhi 75 %. ca Gte 

F132 - RACER RUT5P0MB Tere roe vancf 

FI 3 J - WACKY L?e wKA W. poda Miflee 

Fiat- CYRUS G nutiU iaeyei a leuc- M'a u«ncs 



FflEKKCAjOAjOCOiCrSWM 

PAHA CADA i JOGK CDMPRaDGS. 6KDLHA UU TEflCEIFW INTElRAUElrfE 
GRATT3. E 4IRDA.GANHE UAl£ UU JOCOt SENHA 



DRINDE: GRADS. NA COUPB'A BE OUALGUER FIRM a AM A EM PKO 
UU CUHSO PA55CAA-PASSO EU SA9C. 



COMOCOMPRAR: 

,N kO R EtOftT E 51A K 1ST A- FAC A 0 StL P EDTO 0 FOR C AHTA . RUA CIONAi'i DO SEUS DA DOS E OS CODlGOS DOS PROCR.AMAS DESEJA DOS- AN EKE 
A CARTA UM CKEQLE>OMI?iALA ATI Editora Lcda.. Av. Pies. IL'ilson. |J>5 -grupci 9210 ■ Centro, CEP 20.0-3-0 ■ Rio rte Janeiro -RJ As-dfsivesaiiilD cnrTflia ja emtao incJuidas 

SOFTSPEED 

RUA GONZAGA BASTOS 112 - 20541 • RIO DE JANEIRO 



trs-color trs-color trs-color trs-col 



Graficos de funcao 

#_ 

Roger io lerusafimschy 



Este programa possibilita a plotagem de 
graficos, a partir da introdu^ao de uma deter- 
minada funcao F(X) e do intervalo para o 
qua] desejamos efetuar a analise da mesma. 
Quanto ao funcionaxnento do programa, fo- 
ram levados em conta do is fatores fundamen- 
tals; o grafico teria que caber na tela, e o po- 
sicionamento dos eixos teria que ser satisfato- 
rio. 

A fim de resolver o primeiro problema, foi 
feito o seguinte: a partir dos valores maximo e 
minimo de X, que sao introduzidos no inicb 
da execu?ao do programa, nas variaveis MAX 
e MIN, respectivamente, e calculado o interva- 
lo H, que divide o eixo horizontal em 256 
partes iguais. Dai, a funijao F(X) e calculada 
N vezes e, no mesmo loop, sao calculados os 
pontos de maximo (VA) e de minimo (VM) 
da F(X). Uma vez calculados VA e VM, po- 
demos achar o fator que, na ocasiao da pb- 
tagem, vai impedjr que algum ponto extrapole 
os limites da tela (este fator e chamado de 
modulo e fica armazenado na variavel MY). 

Quanto ao eixo vertical, precisamos ini- 
cialmente testar se ele esta presente no inter- 
vab consider ado. Caso esteja, ele sera posicio- 
nado de acordo com uma regra de tres sim- 
ples. Caso nao esteja, sera posicionado no ex- 
tremo esquerdo do eixo horizontal (EV = 0). 

Isto nab se aplica ao eixo horizontal, para 

0 qual devemos calcular ao menos um ponto 
de intersecao do mesmo com a funcao (cha- 
mado de ZERO da F(X)). Para este calculo, 
utilize i o metodo da bisse^ao, que oferece um 
resultado bastante preciso, sem muita demora. 

Com rela 9 ao as limitaqdes, podemos ter: 

1 - Limita^des do proprio computador, como 
porexemplo: 

a) Divisao por zero. 

Ex: F(X) =SIN(X)/X, quando o valor maximo 
ou minimo for 0, ou quando estes forem valo- 
res inteiros, q que vai fazer com que surja um 
0 no meio do intervalo; 

b) Overflow. 

Ex: F(X) =EXP(X), onde X> 88.02 (aproxi- 
madamente) 

F(X) = TAN(X), para X = PI/2. 

2 - Intervalo muito pequeno: 

Se, no intervalo escolhido, a fun?ao nao 
apresentar uma varia$ao bastante visfvel, sera 
necessario recalcula-la para um novo intervalo 
que possibilite uma melhor visualiza 9 ao da 
mesma. 

3 - Intervalo muito grande: 

Se, por outro lado, o intervalo escolhido 
for muito grande, os pontos serao plotados de 
uma maneira dispersa e em alguns casos a vi- 
sualiza$ao da funcao pode se tornar ate mes- 
mo impossivel. 

A fim de facilitar o ca'lculo para um novo 
intervalo, caso o escolhido nao tenha sido sa- 
tisfatorb, basta digitar qualquer letra, e o mi- 
cro pedira um novo intervab. 

DICAS 




Figure 1 



Foi utilizado: 

300 ON SGN(FNF(L1)* FNF (M))+2 GOTO 
310, 350, 330 

Isto foi. feito porque, quando FNF (LI)* 
FNF(M) for <0, SGN(FNF(L1)* FNF(M)) 
serd -1, que somado com 2 dd 1, desviando o 
programa para a linha 310. Quando FNF(Ll) * 
FNF(M) for igual a 0, SGN(FNF(L1)* FNF 
(M» e 0, que somado com 2 da 2, desviando o 
programa para 350. E assim sucessivamente. 



2 - Substituindo: 

690 IF INKEY $ <>”” THEN 100 ELSE 690, 
foi utilizada a rotina da ROM, que come^a no 
endere^o 44539 e que tem a fun 9 ao de travar 
a execu^ao do programa ate que alguma tecla 
seja pressbnada. 

Como aplicacao , tente utilizar os exempbs 
a seguir. Depois, verifique na figure 1 como fi- 
cou o grafico do primeiro exempb. 

1- F(X) = SIN (X) / X, para o intervalo de 
-11.1 a 11.1; 

2- F(X) = COS (X) * X, para o intervalo de 
-12.4 a 15.7; 

3- F(X) = COS (X), para o intervalo de -6.3 a 
6.3. 

Agora e so digitar o programa e aplica-lo, 
de acordo com suas necessidades. 

Bibliografia 

STARK, P. A., Introdugdb aos Mitodos Nu- 
mericos. 
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cessadores e Computadores Digitais. Atual- 
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to de Comunicagao de Texto ( Divisao de Pla- 
nejamento). 



10 'PROGRaNAOO POR ROGER 10 IERU- 
SALXKSCHY EM HA 10 DE 
20 GLS 2 PRINT'"'! NTR0DUZA A F(X) NA 
LINHA 50, (DEPOTS DO SINAL DE 
; ) " 

30 r ft I NT s P R I NT" A SEGUIR, DlGITE 
"CHRftC 34 3 "GOTO 3CTCHR IE ( 3 4 > " ■ " s P R 
INTiPft INT"A ULTIMA F(X) INTR0DUZ 
IDA, \-0U" SPRINTS LIST 50 . 

40 ’FUNCAO ENTRA NA LINHA ABAIXQ 

50 DEE FNF ( X)~SIN( X) /X 
60 CLS 

7D -PR INT5)i34 , "PL.OTAGEM DE GRAFIC 
OS" 

80 PRINTS 165, STRING* (22, "8") 

90 DIM V<256> ,X<257) 

1D0 EH*03M«0 
iiO PRINTS224,; 

120 INPUT "QUAL 0 MINIMO VALOR P/ 
X " j M I N 

i30 INPUT'E QUAL 0 MAXIMO" ; MAX 
140 IF MAX*MJ'N>0 THEN EV=0 ELSE 
E-V"FIX(-235*MIN/< MAX-KIN ) ) 

150 CLS 

160 P fi I NT 3 1 32 r " A G U A R DE ALGUNS SE 
GUN DOS" 

170 PR I NTS] 163 r STRING* (25 r "tt") 

5.00 "AUMENTA A VE L0C I DADE DO 
"CLOCK" 

190 POKE- 65495,1 

2GG ’ACHAR UM "ZERO" DA F<X> 

PELG METODO DA BIGS EC AO 
210 Ll-h^Ns L2“MAX 
220 T SE A F (X ) NAO COST A 0 EIXO. 
DOS X ENT A0 ESC0LHA NOVO 
INTERVALO., SE NAO H0UVER 
"ZERO", ABANDGNE A ROTINA. 
230 IF FNF<Li)*FNIf(LE) >0 THEN IF 
Li >L2 G0T037G ELSE L1~L1+ . 1 “ GOTO 
230 

24D. ’U-NUMER0 DE ITERAC0ES 
IE-9 E ’ 0 ERR0 MAXIMO 
250 W=L0G< (L2^Ll)/iE-9)/L0G(2) 
260 FOR Z«0 TO U 
270 M=(Li+L2)/2 

28Q 'EVXTE ?/0 NO CASO DE INTER- 
VALO SIMETR ICO' 

290 IF M"0 THEN M=lE-9 

4 SON ( FNF ( LI ) *P~NF (M > ) +2 GOT 



0 310,350,330 
310 L2=M 
320 GOTO 340 
330- Ll^M 
340 NEXT 

350 PRINT3i99,"RAIZ="M 
.340 ’TAMANH0 DO INCREMENTO P7 03 
X < I ) 

370 H- <MAX-MIN> 7256 
380 PR I NTS23 1 , 

390 X ( 1 ) IN 

400 'VM-P0NTQ DE MINIMO DA F(X>? 

VA--PONTO DE MAXIMO DA F(X) 
410 VM~0=VA=O 
420 FOR 1=1 TO 256 
430 XU+i)--=X(I)+H 
440 X=X(I> 

450 VU)-FNF(X) 

460 PRINT3263,"I="I 

470 PR IKT3295,"X="X = PR INT8327, "F 

<X)«"V<I) 

480 ’CALCULA OS PONTOS DE MAXIMO 
E DE MINIMO 

490 IF V ( 1 5 > VA THEN VA~V<I> 

500 IF VtlXVH THEN 
510 NEXT 

520 f CALCULA 0 "MODULO" fV 0 EI- 
XO Y, NAO FERMI TINDO QUE 0 
GRAFICO EXTRAPOLE OS LI MI- 
TES DA TELA- • • 

530 ■MY«(VA~VM)/m 
540 MNTRODUZ 0 MGDQ DE MAXIMA 
■ RESOLUCAO GRAFICA E AUISA 
“ DUE TERMINOU 0 PROCESS AMEN- 
TO 

550 PiiODE 4,1s FOR S~0 TO 10 SPLAY 

"1UT3D03C" SNEXT 

560 'P LOTA 0 GRAFICO 

570 CLSsPCLSs SCREEN 1,1 

580 FOR 1=1 TO 256 

590 B*(V< I >-VM)/MY 

600 P SET ( I ■■■ i r F I X < 1 91 ~B ) > 

610 NEXT 

620 ’VOLTA AO "CLOCK" INICIAL. 

630 POKE 65494,0 
640 ’DESENHA 0 EIXO VERTICAL 
650 LINE ( EV , 0 )— ( EV, 1 91 ) , PSET 
660 ’DESENHA 0 EIXO HORIZONTAL 
670 EH~191 W ( FNF CM )-VM )/MY 
6S0 LINE(0,EH)~( 255, EH) , PSET 
690 EXEC 44539 s GOTO 100 
700 END 



* a * * * you or 

1 - Ao inves de utilizar: 

IF FNF(Ll) * FNF(M)<0 GOTO 310 

IF FNF(Ll) * FNF(M) =0 GOTO 350 

IF FNF(Ll) * FNF(M)>0 GOTO 330 Grdfico de funcao 
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O mercado de agoes tem se expandi- 
do bastante ultimamente, Mo so em ter- 
mos de quantias negociadas, mas princi- 
palmente no numero de investidores que 
cresce rapidamente. Isto se deve ao fa to 
de que o publico em geral vem buscan- 
do as agoes como alternativa de investi- 
mento. Este comportamento sera ainda 
mais observado agora que o govemo 
busca uma queda acentuada da inflagao 
e isso, conseqiientemente, reflete nos 
rendimentos das cadernetas de poupan- 
5 a. 

fi de interesse de todos que se dissipe 
a aura de misterio que envolve o merca- 
do de capitais e foi com o intuito de 
auxiliar os investidores que este progra- 
ma nasceu. 

Fica difi'cil para um investidor que 
possui muitos titulos em carteira or- 
ganiza-los adequadamente, no que tan- 
ge a perspectiva de lucro de cada papel. 
Por exemplo, caso o investidor tenha ad- 
quirido uma agao pelo prego de Cr$ . . . 
10,00 e a tenha vendido pelo prego de 
Cr$ 11,50, em torno de um mes satis- 
feito com o lucro aparente de 15% (su- 
perior as poupangas) este investidor nao 
deve se surpreender quando digo que 
seu lucro real foi bem abaixo disso, tal- 
vez 1 1 ou 12%. Isto se deve ao valor pa- 
go pela corretagem de praxe, que na 
maioria das vezes e esquecida e depois 
faz falta. 

Deve ficar claro que este valor da cor- 
retagem torna-se desprezivel para gran- 
des negociagoes, muito acima de CrS 12 
milhoes (se este e o seu caso, informo 
que aceito donativos de grandes investi- 
dores que queiram contribuir para com 
a ciencia da computagao). De qualquer 
maneira, o programa lhe sera util para 
manter uma listagem impressa dos inu- 
meros titulos e seus rendimentos. 

Torna-se tambem muito difi'cil con- 
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trolar o saldo em conta-corrente quando 
fazemos muitas compras e vendas e nao 
sabemos o valor exato dos debitos e cre- 
dit os. Lembre-se que a corretagem es- 
quecida de hoje pode se transformar no 
cheque sem fundo no almogo de come- 
moragao de amanha, 

Este programa visa calcular exata- 
mente os valores debitados e creditados 
de uma negociagao, incluindo a taxa 
A.N.A., e tambem fazer uma estimati- 
va de pregos para um determinado lucro 
desejado. Ele se divide em duas fungSes 
principals: na primeira voce deve entrar 
com o titulo da agao (aconselho os no- 
mes usados pelos computadores da bol- 
sa), prego de compra e quantidade. Nes- 
ta fungao, voce quer saber a quanto de- 
ve vender uma agao para obter um de- 
terminado lucro e, como obviamente 
voce nSo tem o prego de venda, digite 
apenas <ENTER> ou o que o valha. 

O proximo passo e escolher a partir 
de qual porcentagem o programa calcu- 
lara os valores de venda. Nao vale cal- 
cular prejuizo, so o lucro (% INICIAL 
maior ou igual a zero), afinal sejamos 
otimistas! Modificagoes podem ser fei- 
tas para calcular um limite de perda, por 
exemplo. Nao se preocupe em digitar va- 
lores negativos em “% INICIAL”, voce 
nao vai conseguir. Tambem nao sera 
possivel entrar cbm dados na forma ex- 
ponential, e necessario digitar-se todos 
os zeros de uma quantidade. 

Sera calculado um valor de venda 
para o lucro pedido e mais seis porcenta- 
gens de lucro incrementadas de 5% cada 
uma. Por exemplo, se voce pedir 10% 
como porcentagem initial, o programa 
calculara valores de venda para lucros 
de 10, 15,20,25,30, 35 e 40%. 

Depois de entrar com os dados, pre- 
cisa-se de paciencia para esperar os eter- 
nos segundos (de 8 a 80) que os calculos 



demandam, dependendo do valor da 
agao e da faixa de lucro utilizada. Dos 
mais apressados, aceito sugestoes para 
acelerar 0 programa. Na parte de impres- 
sao, serao usadas 80 colunas e 6 linhas 
nesta fungao. 

A segunda fungao principal e calcular 
0 lucro exato de uma negociagao, assim y> 
como o credito, debito e saido reais. m 







SOFTWARE PARA CP 400 E COMPATiVEIS 

APLICATIVOS: Processador de Textos 

PPTEXTO c/ acentuapao em portugues, Plani- 
Ihas Eletronicas, Bancos de Dados, Pacotes In- 
tegrados. 

UTILITARIOS: Editor/ Assembler, Expansor 
de Tela, Supertec, Compiladores, Copiadores, 
Etc.. 

GRAFICOS: DUMP P-500, Esquemas Eletroni- 
cos, Bjork Blocks, Comerciais, Graphicom e 
outros, 

LINGUAGENS: LOGO em portugues, PILOT 
para professores e uso didatico, PASCAL, 
C Basic. 

JOGOS: Muitos titulos para mencionar aqui! 
Nossos catalogos mostram as telas dos jogos. 
Temos jogos exclusivos. Escolha melhor na 
Peek & Poke ! 

SOFTWARE PARA CP 500 /CP 300 

— Processador de textos PPTEXT 500 DISCO 
c/ acentuactio. 

— Planilha Eletronica CALC-300. Unica em Z- 
80 para versao K-7. 

— Utilitarios copiadores para fita e disco. 

— Editor/Assembler, monitor MACMON e tu- 
tor de linguagem de maquina. Em fita ou disco. 
AprendaZ-80! 

— Compilador ZBasic. Produz codigo objeto 
com rapidez. 

SOFTWARE PARA LIN H A MSX 

ftevendemos cartuchos e fitas c! os melhores 
pregos. Desenvolvemos titulos proprios. Entre 
em contato. 

A PEEK & POKE demonstra? garante e da su- 
porte. permanent® a seus programas. Venha 
conheoerlos ou solicite catalogo complete para 
oseuequipamento. 



PEEK & POKE Microcomputapao e Conrtercio Ltda. 
Au. Brig Faria Lima, 1664 -Conj 1102 
01 462 • Sao Paulo SP Fone: 1011) B13-3277 





MERCADO DE AQflES 



Aqui cabe uma observagao para os que 
me ajudarem conferindo o programa: o 
rendimento deve ser calculado pela re- 
lagao entre o valor de venda — correta- 
gem e o valor da compra + corretagem, 
pois no capital inicial inclui-se o valor 
pago na corretagem. Haverd tambem pe- 
quenas divergencias entre os resultados 
de uma fungao e outra, dado que na pri- 
meira fazemos iterates a procura de 
um resultado e na outra fazemos apenas 
adigSes e subtragSes com valores exatos. 
Estas divergencias nao devem ser supe- 
riores a cinco decimos de porcentagem. 

A tela para entrada de dados nesta 
fungSo e a mesma; o que vai determinar 
sua execugao e o fato de voce colocar al- 
gum valor no prego de venda. Perceba 
que, entao, voce Mo podera mais digitar 
qualquer valor na percentagem inicial. 
Outra diferenga esta no tempo de exe- 
cugao que nao ultrapassa algumas fra- 
g5es de segundo. A impressao e feita em 
13 linhas e 80 colunas. 

Vale a pena lembrar que a tela pode 
ser impressa na Integra usando-se, no 
caso do CP 500, as teclas <SHIFT>, 



<seta para baixo> e < * >, simultanea- 
mente. 

Outra observagao: eu falei na taxa 
A.N.A. (taxa de aviso de negociagao de 
ag<5es), que varia periodicamente e pode 
ter seu valor no programa modificado, 
alterando-se a linha 100. Procure infor- 
mar-se na sua corretora de valores sobre 
as mudangas deste valor, A taxa na epo- 
ca da confecgao deste programa era de 
CrS 1.366,00. Uma quantia pequena, 
mas que auxilia na conferencia de saldo 
bancario quando calculada corretamen- 
te. Lembre-se que, conferindo as cente- 
nas de cruzeiros, temos uma maior cer- 
teza do saldo correto. 

Caso haja uma variedade de titulos 
negociados em um mesmo dia, deve-se 
saber que a corretagem e calculada pelo 
valor total negociado, nSo subtraindo- 
se as compras das vendas ou vice-versa. 
Proceda da seguinte maneira: some to- 
das as quantias de papeis comprados e 
vendidos; entre no programa com um 
tftulo fictfdo, DIA por exemplo; entre 
com os pregos de compra ou venda e 
quantidade que, quando multiplicados, 



resultem no montante do dia. No resul- 
tado dado pelo programa, tome apenas 
a corretagem sobre o debito ou cridito, 
de acordo com o valor que voce entrou, 
de modo que o total resulte no montan- 
te do dia. Por exemplo, se um dia voce 
negociou um total de cinco milhdes, en- 
tre com a quantidade de um milhfo, 
prego de compra de Crl 5,00 e um pre- 
go de venda qualquer. Depois, tome 
apenas a corretagem sobre o debito 
(compra) e ignore a corretagem de ven- 
da. 

Quando da digitagSo do programa, 
recomendo nfo analisar muito seus de- 
talhes para nSo perder a surpresa que lhe 
aguarda na curiosa “Tela de Espera”. In- 
clusive, pode-se economizar algumas ins- 
trugOes retirando-se esta surpresa , mas 
acho que nSo vale a pena, afinal fica um 
charme, n<fo i mesmo? 



itamar Dionfsio Vieira 4 programador 
MUMPS na Compart e faz curso de Anti Use 
de Sistemas. Possui um CP 500, onde deseti- 
voive software em BASIC para diversas tireas. 



5 CLEAR 300=PRINTCHRS(21 ) 

10 GO8UH3000 

20 P R I N T 3254+26 , "P r os r aima p/"i 
30 PR INT8320+24 , "MERCADO DE ACOES"? 

40 PRINTS!448+20,"Autor : ITAMAR D. VIEIRA"? 

150 PRINT3704 + 10,"Dire (tens nao reservados, pode ser copiado"? 

60 PR INTiil768 + i0 , "e modificado a vortfcade. (so ' p/ variar)"; 

70 FOR .[-=1X04000: NEXT 
80 RESTORE 
90 READ TA 
100 DATA 1366 
110 ' 

130 T TELA PARA ENTRADA DE DADOS 

150 ' 

160 GOSUB3000 

170 PRINTS)128+).0, "ENTRE C/ 0 TITUL0 : "? 

180 PRINTS>192+t0 r "PRECO DE COMPRA: " ? 

190 PR I NT3256+ 1 0 , "QUANTIDADE s 

200 P R INT!i)320+ i 0 , "PR ECO DE VENDA: "» 

2.10 PR INT3384+ 10 , "X INICIAL.: "■ 

220 PRINTa832+15,"DIGITE <FIM> NO TITULO P/ ENCERRAR"? 

230 ’ 

250 ' ENTRADA DE DADOS 

2/0 ' 

2.80 i'X .1 57 : t NATX = ? s GOSUB4000 
290 NLb : =VARll> 

300 I FNS--"FIM"THENCLS : PR INT8384 , "F X M DE PROGRAM A":RR 

INTCHR S ( 21 ) :END 

310 NS="*#* "+NS+" ***" 

320 PX=2i 9 : OX =6 s NAT%= 1 : 60S UB 4 000 
330 PC=VAL< VARS) 

335 IF PC=0 THEN 230 

340 P %=278 1 OZ-B s NATX*= 1 :6OSUB4000 

350 Q= VAI... (VARS) 

355 IF 0=0 THEN 230 
360 PX=346:QX»6sNATX=i :GOSUB4000 
370 UV=VAL(VARS) : IFUV< >0THEN460 
380 PX=405 : SX=3 s NAT%=1 :GOSUB4000 
390 P = VAI... ( VARS) 

40G 80X0840 
410 ’ 

420 ’ CALCU..0 OF.. COR RET AGE NS" E RENDIMENTOS 

450 ' 

460 V=G*PC:GOSUB2000 

470 CC=C » TC-V+C s s GOBUB 2000 

480 CV = C '■ T V=V~C : GOSUB 3000 

4V0 ' 

510 ’ IMPRESSAO NA TELA DOS VALORES 

580 ' 

540 T C *»=T C s T V # = T V s S A# == T V - T C 
550 PR 1 NT3A4+ < 32-LEN < NS ) /2 ) r NS? 

560 PR I NTS) 1.28 *3 , US I NG"COMP R A CrS PC? 5 PRINTS 128+40 .USING" 

VENDA CrS fit!" ? U V ? 

570 P R IE N T B193,STRINGS(6 2 , 9 5 ) ? 



580 PRINTffl320+5,U3INB"QUANTIDADEs ? <3? 

590 PR INTS13B4+5 , USING"DEB ITO « CrS ? TGB ? :PRINTS)384+30, 

USE NG"C0RRETAGEM : CrS ########"? CC ? 

600 PR INT3448+5 ,USIN0"CREDITO! CrS #####»#«#" ; TVtt ; :PR I NT3448+30, 
USING" CORRETAGEM : CrS tttttttMMMMt" ? CV ; 

610 PR INTS1512+5 , IJSI NG"SALDO : CrS ; BAR ? 

620 PRINT8640+5 , USING"RENDIMENT 0 : X" ; (TV/TC-i ) »100? 

630 PR IN 1 8832+10 , "TECLE <I) P/ IMPRIMIR OU < ENTER > P/ CONTINUAR" 

640 AS-INKEYS : IF AS=""THEN640 
650 IFASC ( AS ) =1 3THEN80 
660 IFASC ( AS ) < >73THEN640 
670 ' 

690 ' SAIDA NA IKPRESSORA 

710 ' 

720 GOBUB5000 : IFCH-1THEN630 
730 LPRINT:LPRINT 
740 LPR INTT AB < 40-L.EN < NS ) /2 ) ;NS 
750 LPR INTSTR INGS (80,61) 

760 LPR INI :L.PR INTTAB ( 5 ) ? USING"0UANTIDADE : #««#<*####" ?S? sLPRINTTA 
B ( 30 > ? USING"COMPR A : CrS ttMH . s PC ? : LPR I NT TAB ( 53 ) ? USING" VEND A Cr 

S #R#.##";UV 
770 LPR INI 

780 L.PR INTTAB ( 5 ) ?USING"DEB ITO s CrS ###,###,###. MR" ; TC# 

790 LPR INTTAB ( 5 ) ‘"CREDIT0. . . * CrS"?TAB<34) ?USING"tMt« . 

? TV0 

800 L.PR INTT AB ( 1 6 ) ? STR INGS ( 32 , > 

810 LPRINTTAB (5) ?USING"SALD0. . , , , : Crib tMMt , ,»««.#«" ?SAtt 

820 LPR I NT : LPR INTTAB (5) ? USING"RENDIMENTO : «♦*# _ ♦+« X" ; ( T V/TC 1 ) *10 

0 

830 GOTO80 
840 ' 

850 ’ it******************************************************* 

860 ' CALCULA 0 VALOR DE VENDA PARA LUCR0 ESTIPULADO 

870 ’ ESTIMANDO UM PRECO DE VENDA E INCREMENT ANDO-O 

880 ’ ATE' 0 RENDIMENTO LIQUIDO FOR CORRETO 

890 ' ******************************************************** 
900 ' 

910 ’ CALCULA 7 VALORES DE LUCRO DE 5% EM 5% 

920 TSOSUB3000 : PR I NTCHKS ( 23 ) ? : PR INT3202 , "C ALCULANDO ! " ? : ’*** TE 

LA DE ESPERA *** 

930 11=8 

940 I I =8: FOR I = 1 TO 7 
950 1 1 = 11-1: PR INTSI51 2+34 ,11? 

960 TC=Q*PC 

970 V=TC:GOSUB2000 

980 CC=C 

990 TC : '-V+C 

1000 P=P/100+i 

1010 UV=( (TC-C)*P+2*CC)/Q 

1020 V=UV*S: GOSUB2000 

1030 KK=KK*< -1 ) : IFKK = ( -1 ) THENKK =0ELSEKK = 1 
1040 PR INT3512+32 ,CHRS(196+KK) ; 

1050 J=J+1 
1060 TV=V-C 

1070 ' ***** CALCULA INCREMENTO PELO VALOR DA ACAO 

1080 ' 

1090 IF PC<=10THENINC=.0iELSEINC=PC*.00i 
1100 IFF >2.3THENINC=INC*5 
1110 IFP >2. ©THEN INCHING *4 
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FORMAMOS PRO FISSION AES 
ATUALIZADOS COM AS 
MELHORES TECNtCAS EM: 

* ANA LISE £ PRQJETO DE SESrEMAS 
« OHG. 5ISTEMAS 4 METODOS 

* PROGRAMACAQ DE COMPUTADOR 
(COBOU 

* DIGIfTAgAO 

Ml CROl N FORM ATI C A 

* LING-UAGENS: BASIC, MUMPS 

* SISTEMAS QPERACIONAIS: 

CR.M, MS-DOS 

* PLANlLHAS ELETRONICAS: 

LOTUS 1,2,3, MULTIPLAN 

* BANCO DE DADOS; 

DBASE II, DBASE III 

* PROCESSADOR DE TEXTO: 
WORDSTAR 



Lit) 

IMfOfiMATlOt 

Av, Rio Branco, 173 SobreEoja 
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Poker 

Julio Cesar Alves da Si iva 



Para aqueles que n§o conhecem o jo- 
go de Poker, na apresentagao do progra- 
ma serao mostrados os valores das car- 
tas e suas possiveis combinafSes. Serao 
sorteadas cinco^cartas para cada jogador 
e cada um tera direito a trocar ate tres 
delas. No inicio da partida, sera pergun- 
tado o valor do cacife. A seguir, voce de- 
vera entrar com o valor das fichas que 
serao distribuidas aos participantes. A 
cada rodada, serao cobradas cinco fi- 
chas para inicio das apostas. Durante 
o jogo, porem, basta seguir as instru- 
0es do micro. Contudo, ao terminar 
a conta de um dos jogadores, a parti- 
da seri encerrada. 

A DIGIT A^AO 

Este programa foi desenvolvido, ori- 
ginariamente, por Julio Cdsar Alves da 
Silva, em um CP 200, podendo assim ser 
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Figura 1 



digitado em qualquer modelo compati- 
vel com o ZX81 (TK82, 83 e 85; Ringo, 
etc). 

Visando satisfazer tambem aos novos 
usuarios dos compativeis com o Zx Spec- 
trum (TK90X e TS 2068), foi desenvol- 
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Listagem 1 — Bloco Assembler 



vida pelo CPD de MICRO SISTEMAS, a 
partir do programa original, uma versao 
para estes micros. Como as duas linhas 
tern comandos em comum, a apresenta- 
9 ao da listagem de Poker sera feita de 
uma maneira diferente da que os leito- 
res estao acostumados. 

0 programa esta dividido em quatro 
listagens: uma em Assembler (apenas 
para a linha ZX81) e as outras tres em 
BASIC, sendo que uma sera comum as 



10 FOR N = 1 TO 36 
12 LET Bi ( N , -3) = “0" 

IS NEXT N 
20 DIN 0(3) 

2S LET ■ ME = 10 

30 LET OH =0M-5 

35 LET QH=0H-5 

4-0 LET U=U + I 

4-5 IF U=2 THEN LET U=© 

50 LET P = i 

51 LET 5H=0 

52 LET SH=0 

53 LET NM =0 
54- LET NH=0 

55 LET Z=0 

56 LET T =5 
60 LET AH =5 
65 LET RM=5 
70 CLS 

83 FOR 1 = 1 .TO 25 STEP 6 
118 LET N = INT i 1/6 3+1 
115 GOSUB 5088 
120 LET Hi(N)=B*Efl) 

125 GOSUB S02«5 
138 GOSUB 5088 
135 LET MS ( N ) =B$ (fi) 

14-0 NEXT I 

14-5 PRINT RT 8,8; “I $ " ; OM ; " ; A 

T 18, ©; "MESA :> i 18“ ; RT 13,0: "| $ 
" , OH, " 1“ ; RT 8 , 15; "DESEJR TROCRR 
";RT IS, 19; "CARTAS?"; RT 12,23; "( 
S/N) " 

152 LET E=1 

155 IF INKEY i = " " THEN GOTO 155 
168 LET K. 4 = INKEY $ 

165 GOSUB 5S35 
178 IF K*=“N“ THEN GOTO 325 
175 IF K$ > ' 8 THEN GOTO 145 
188 PRINT RT 8 ; 15 ; "E5C0LHR RS C 
RRTRS " RT 10 ; 15;"E PRESS IONE T' 
‘MAT 12,18; “AO TERMINAR" 

185 FOR E = i TO 3 
190 IF INKEY S=“" THEN GOTO 198 
200 IF K*="T" THEN GOTO 235 
285 IF OR K$>"5" THEN GO 

TO 198 

287 IF UAL K $ =C i 1 i OR URL K$ = Ci 
23 OR URL K $ =C ( 3 ! THEN GOTO 190 
210 LET C (£) =URL K* 

238 NEXT E 
237 GOSUB 5835 



240 FOR 1=1 TO E-l 
245 LET N=C(I) 

250 LET L=6*N-4 
255 GOSUB 5808 
250 LET H$ (N) =B$ (A) 

238 GOSUB 5823 
285 NEXT I 

290 IF U=8 THEN GOTO 325 
295 PRINT RT 9,15; "DESEJR CONTI 
NURR? “ ; RT 11,21; " (S/N) “ 

308 IF INKEY *="" THEN GOTO 300 
385 LET K*= INKEY* 

310 GOSUB 5085 
315 IF K*="N“ THEN GOTO 960 
328 IF K*0“S" THEN GOTO 295 
325 PRINT RT 9 , 15 ; "AGURRDE EN0U 
RNTO" RT 11,15; "VERIFICO MEU JOG 
0” 

338 FOR 1=2 TO 5 
335 FOR N =5 TO I STEP -1 
340 IF H i ( N , 1 i J =H * ( N - 1 , 1 ) THEN 
GOTO 880 
345 LET U$=H*(N) 

358 LET H* (N) =H* (N-l) 

355 LET H* (N-l) =U* 

360 NEXT N 
365 NEXT I 
375 GOSUB 5835 
377 LET CT=8 
880. GU6UB 5108 

385 IF CM =6 OR CM =4 THEN GOTO 6 
30 

398 IF CM =3 THEN GOTO 525 
395 IF CM =2 THEN GOTO 495 
408 GOSUB 5188 
405 IF SM=7 THEN GOTO 630 
410 IF 5M=5 AND NM=5 THEN GOTO 
578 

415 IF 5M=3 AND NM=3 THEN GOTO 
595 

428 IF CM=1 THEN GOTO 450 

425 FOR N = 1 TO 3 

43© GOSUB 5000 

435 LET M* (N) =B$ (A3 

440 NEXT N 

444 LET CT =3 

445 GOTO 615 
450 FOR N =1 TO 3 

455 IF M* (N, I) =M* (N + l . 1) THEN G 
OTO 465 
460 NEXT N 



465 FOR 1=1 TO 5 

470 IF I=N OR I=N + 1 THEN GOTO 4 
85 

475 GOSUB 5008 
438 LET M*(I)=B*(fl) 

485 NEXT I 
438 LET CT =3 
490 GOTO 615 

495 IF M* ( 1 , 1 3 =M$ (2 . 1 3 AND M*C3 
, 1) =M$ (4, 1) THEN LET T=5 
588 IF M* ( I , 1 ■ =M* (2 , 1) AND M* (4 
,1) =M* (5, 1) THEN LET T=3 
505 IF M*i2,13 =M$(3.13 AND Mi (4 
, 1)=M$(5,±3 THEN LET T = 1 
508 LET CT = 1 
510 GOTO 605 
525 FDR N=i TO 3 

530 IF M$ (N, 1) =M$ CN+2, 1) THEN G 
OTO 540 
535 NEXT N 
540 FOR 1=1 TO 5 

545 IF I =N OR I =N+ 1 OR I=N+2 TH 
EN GOTO 568 
550 GOSUB 5088 
555 LET M* (I) =B* (A) 

560 NEXT I 
562 LET CT =2 
565 GOTO 6 1& 

578 IF H* ( 1,2) =MS (4 ,2) THEN LET 
T =5 

575 IF M* (1,2; =M* (5 ,2) THEN LET 
T =4 

578 LET CT=i 
530 GOTO 805 

595 IF Mi (5,2) =M* (1 .2) THEN LET 
T=2 

600 IF M$ (5 .2) =M$ (2,2) THEN LET 
T = 1 

602 LET CT = 1 

F,85 GOSUB 5008 

610 LET M$m=8$(A) 

615 GOSUB 510F 

620 IF CM =8 THEN G05UB 518© 

625 IF Sh-7 THEN LET SM=0 
630 LET OH =8 
635 FOR 1=1 TO 4 
648 FOR N = I + 1 ! 0 5 
642 IF Hi i 1 , 1) < > HS (N , 1) THEN GO 
TO 650 

F44 LET CH=CH + 1 
645 LET Hi (1,5) = " 1 " 
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64.5 LET H $ (N ,5) ="1” 

650 NEXT hi 
655 NEXT I 

660 IF CH:>0 THEN GOTO 6S7 

665 FOR 1=1 TO 2 

666 FOR N = I To 4- 

670 IF URL H$ (I .1) +N- tl AND 1=2 
) = URL Ht(N+l,l) THEN LET SH=SH+1 
675 IF H $ ( 1 , 2 3 =H $ ( N + 1 , 2 3 THEN L 
ET NH=NH+i 
6S0 NEXT N 
682 NEXT I 

685 IF 5H < 7 THEN LET SH=0 
587 IF CT =0 THEN PRINT RT 8,15; 
"NRO TROQUEI CRRTR" 

688 IF CT = 1 THEN PRINT RT 8,15; 
"TROGUEI UMR CRRTR" 

589 IF CT > 1 THEN PRINT RT 8.15; 
"TROQUEI " ; CT; " CRRTRS " 

695 IF U=i THEN GOTO 1050 
700 IF (CM=0 RND 5M=0) OR iAN = 5 
RND i ( (CM<4. RND SM<73 RND RH :> OR 
C/10J OR * (CM c 2 AND SM<73 AND RH 
>CRC/20j 3 3 THEN GOTO 966 
710 IF (CM si RND ME JCRC/153 OR 
(CM-=2 RND ME >CRC/103 OR (CM=3 AN 
D ME > C H C / 6 • OR i CM =4 RND MEi-CAC/ 
3) THEN GOTO 780 



715 LET Z=Z + 1 

720 IF Z < CM + 1 OR Z < SM THEN GOTO 
735 

725 LET P=RND*E+ (RND*2 AND (SM = 
7 OR CM =6 3 3 + E 1 RND SM = 7 AND NM=7 

3 



730 IF P<1 THEN GOTO 780 
735 LET RM = RH+ (RH RND SSM=7 OR 
CM =6 3 3 + E ( INT (RND*flH3+13 RND (CM 
=4. OR CM =3 3 3 +( (INT (RND* 103 +13 A 
ND C M •; 3 3 + ( ! (INT (RND*CM) +13 + (INT 
(RND+5M3 +93 +103 RND ME = 103 
740 IF QM-AM i 0 THEN GOTO 780 



745 LfcT QM=QM-RM 
750 LET ME=ME+RM 

755 PRINT RT 8.3; QM ; “ | " ; RT 1 

0,19; "PAGO MRIS ,: ;RT 12 . 20 : “ $ " ; fl 
h, RT 10,9; ME 
765 NEXT I 
770 GOSUB 5085 
775 GOTO 1050 
780 LET QM=OM-AH 
785 LET ME=ME+AH 
7SS GOSUB 5085 

790 PRINT RT 8,3; QM ; " | ** ; RT 1 

0,9; ME ; RT 8 , 20 ; "PRGO" ; RT 18,19;“ 

S ■■ • - -- — 



i " ; RH; RT 12 , IS; "PRRfl' UER" 


30© 


FOR N=1 TO 5 






302 


LET L=S*N-4 






320 


IF M$ (N , 23 =“C“ 


THEN 


GOTO ; 


825 


IF M$(N,2i=“E“ 


THEN 


GOTO ■ 


838 


IF M$ ( N , 2 3 = " O " 


THEN 


GOTO ■ 


840 


GOTO 870 






350 


GOTO 87© 






860 


GOTO 87© 






875 


IF ( SM =7 OR SH 


=7 3 RND ( NM 



OR NH =' 

880 IF 
90 



3 THEN GOTO 930 

CM =8 OR CH=6 THEN GOTO 



885 IF 5M=7 OR 5H=7 THEN GOTO 9 
10 



1010 IF QM > =@ AND QH =0 THEN GOT 
0 5 

1015 IF OH <0 THEN GOTO 1030 
1020 PRINT RT 8 , 17 ; " ESTOU FRLIDO 
. " ; RT 10 . 15; “UQCE TEUE MUITR" ; RT 
12, 15; "SGRTE NR 5 CRRTRS" 

1025 uOTu 1035 

1030 GOSUB 5085: PRINT RT 8,15;" 
UOCE PERDEU TUDO . " ; RT. 10 , IS ; "R I 
NTELIGENCIA" ; RT 12.16; "SRI UITOR - 
IOSR" 

1037 IF INKEYS < > ” " THEN GOTO 600 
5 

1040 NEXT F 
1045 GOTO 6005 

1056 GOSUB 5085 

1057 IF RH =0 THEN GOTO 960 
1060 IF RH %RM THEN GOTO 1130 
1065 IF R < 0 OR RHCflM THEN GOTO 1 
050 

1070 IF RH.;=RM*2 OR RM=5 THEN GO 
TO 1075 

1071 PRINT RT 7.17: "UGCE RODE NO 
“ ; RT 9, 16; “MRXIHG, DOBRRR" ; RT 11 
, 16; "R MINHR RP05TR . " RT 13,17;" 
URLOR = S “ : RH 

1073 GOTO 1055 

1075 IF RHM3H AND OH > =RM THEN GO 
TO 1120 

1076 IF QH-fiH < 0 RND RH < : RM THEN 
GOTO 1105 

1030 LET OH=OH-RH 

1085 LET ME=H£+RH 

1090 PRINT RT 13.3; OH; " I " ; RT 

10,9; ME 

1095 IF RH=RM THEN GOTO 795 
1100 GOTO 700 

1105 PRINT RT 7,15; "5UR CONTR HC 
RBOU . " ; RT 8,15; "5ERR CONCEDIDO U 
M" ; RT 9, 15; "EMPRESTIMO RPENRS “ ; R 
T 10,15; “PARR OUE UOCE" ; RT 11,15 
; "POSSft UER RS CRR-" ; RT 12 , 15 : “T 
RS DO RDUER5RRI0" : RT 13,17;"RPOS 
TE $ ";RM 
111© GOTO 1055 

1120 PRINT RT 8,18; "NRG TENTE";A 
T 10,15; "RPOSTRR MAIS DO";RT 12, 
15; “OUE UOCE POSSUI." 

1125 GOTO 1055 

1130 PRINT AT 9 IS : " RPOST R MINIM 
fi: RT 11,17;"$ " ; RM 

1135 GOTO 1055 
5000 LET A = INT (RND*43 +1 
5002 LET A=fi*INT (RND*33 +1 
5004 IF B$(R,33="1" THEN GOTO 50 
10 

5006 LET B$ i A , 33 =" 1" 

5008 RETURN 

5010 LET fl=fi + INT (RND *3 3 +1 
5012 IF fi > 36 THEN GOTO 5000 
5014 GOTO 5004 
5020 LET L = 1 + 1 

5030 IF H$ ( N , 2 3 = "C" THEN GOTO 50 
55 

5035 IF H$ (N, 2 3 ="E" THEN GOTO 50 
65 

5040 IF H$ (N , 23 = "G" THEN GOTO 50 
75 

5050 RETURN 
5060 RETURN 
5070 RETURN 
5080 RETURN 



890 IF CM >CH THEN LET X = © 

895 IF CH >CM THEN LET X=1 
900 IF CM =CH THEN GOSUB 5225 
90S GOTO 945 

91© IF 5M > SH THEN LET X=0 
915 IF 5H > SM THEN LET X=1 
920 IF 5M=SH THEN GOSUB 5275 
925 GOTO 945 

930 IF sM>5H OR 5M=SH RND NM?MH 
THEN LET X=8 

935 Jr SH;SM OR 3M=SH RND NH>NM 
THEN LET X=1 

940 IF SM =SH RND NM=NH THEN GuS 
UB 5275 

945 GOSUB 5085 

950 GOTO ( X. =0 3 *955+ (X = 13 *970+ (X 
=23 *985 

955 PRINT RT 9,17; "EU GfiNHEI" 
960 LET OM=QM+ME 

965 GOTO 1000 

966 PRINT RT 10 , 19 : "DESISTO" 

970 PRINT RT 12 j 17 ; “UOCE GRNHOU 

975 LET OH=OH+ME 
980 GOTO 1000 

985 PRINT RT 1© , 18 ; " EMPRTRMOS " 
990 LET OM=OM+INT E ME/2 3 
995 LET 8H=QH+ INT EME/23 
1000 PRINT RT 10,3; "0 “ ; RT 13, 

3; QH; " | " ; RT 8 . 3 ; QM ; ” | 



5035 PRINT RT 7,15;“ 

5086 PRINT RT 8,15; “ 

5087 PRINT RT 9,15;" 

5088 PRINT RT 10,15;" 

5089 PRINT RT 11,15;" 

589© PRINT RT 12,15;" 

5091 PRINT RT 13,15;" 

5100 RETURN 

5105 FOR 1=2 TO 5 

5118 FOP. N =5 TO I STEP -1 

5115 IF MS (N, 13 > =M$ EN-1 . 13 THEN 

GOTO 5135 

5120 LET L$=M$(Nj 

5125 LET MS (N3 =H$ (N-13 

5130 LET M$(N-li=L$ 

5135 NEXT N 

5140 NEXT I 

5145 LET CH=0 

5150 FOR 1=1 TO 4 

5155 FOR N =1 + 1 TO 5 

5158 IF M$ (I, 13 <>M$ (N,1J THEN GO 

TO 5165 

5160 LET CM=GM+1 



Listagem 2 - Linhas ZX81 e ZX Spectrum 



duas linhas de equipamento e outras 
duas, especificas para cada linha. 

Se o seu micro e um compativel com 
o ZX81, voce devera entrar com a lista- 
gem 1. Para isto, crie uma linha 1 REM 
com 100 caracteres quaisquer e digite os 
codigos da listagem 1 usando o Micro- 
bug ou qualquer outro programa que 
permita a entrada de dados hexadeci- 



mais. Apos entrar com os dados, de o 
comando direto POKE 16510,0, que 
protegerd a linha, transformando-a em 
0 REM. Em seguida, digite a listagem 2 
— comum as duas linhas — e tambem a 
listagem 3 — especifica para a linha 
ZX81. 

Caso o seu micro seja um compativel 
com o ZX Spectrum, entSo digite apenas 



5162 LET M$ (T , 55 =" 1" 

5164 LcT M$(N,d3=“1" 

5165 NEXT N 
5170 NEXT I 
5175 RETURN 
5180 LET SM =8 
5185 LET NM=0 
5190 FOR 1=1 TO 2 
5192 LET 11=8 

5195 FOR N = I + 1 TO 5 

5196 LET 11=11+1 

5208 IF URL MS (I , 13 +I1=URL M$(N, 
13 THEN LET 3M=5M+1 
5285 IF MS (1,23 *MS(N .23 THEN LET 
NM=NM+1 
5218 NEXT N 
5215 NEXT I 
5220 RETURN 
5225 LET PM=8 
5238 LET PH=8 
5235 FOR N=1 TO 5 

5240 IF H$ (N,5i ="1" THEN LET PM= 
PM+UfiL MSiN.13 

5245 IF H$ (N ,53 ="1“ THEN LET PH= 
PH+URL HSCN.13 
5250 NEXT N 

5255 IF PM >Pri THEN LET X=8 
526.0 IF PH;- PM THEN LET X = I 
5265 IF PM =PH THEN GOTO 5275 
5270 RETURN 
5275 LET PM=0 
5280 LET PH=© 

5285 FOR N = 1 TO 5 

5290 LtT RM=PM+URL M$(N.i) 

5295 LET PH=PH+URL H$(N, 1! 

5300 NEXT N 

5385 IF PM >PH THEN LET X=0 
5318 IF PH > PM THEN LET X*1 
5315 IF PM =PH THEN LET X=2 
532© RETURN 

6008 SRUE "POKER" LINE 1 
6081 LET H$= 




6082 PRINT RT 10,8, R$ 

6884 GOTO 6086 

6010 LET SH=8H 

6012 LET CRC =QH 

6015 DIM MS (5, 53 

6820 DIM MS (5,53 

6080 LET U=0 

6090 GOTO 5 

6588 DIM B $(36.53 

6502 LET Y $ = “6789 1 JOKR" 

6504 FOR 1=1 TO 36 STEP 9 

6506 FOR F =8 TO 8 

6510 NEXT F 

6512 NEXT I 

6514 LET Y$= “ CHOP " 

6516 LET Y = 1 

6518 FOP. F = i TO 4 

6520 FOR 1=1 TO 9 

6522 LET B$ (Y , 23 =Y$ (F3 

6524 LET Y=Y+1 

6526 NEXT I 

6528 NEXT F 

6530 FOR F = 1 TO 10 

6536 NEXT F 

6538 GOTO 9014 

9000 CLS 

9010 PRINT RS 

9016 PRINT SEOUENCIfi (NRIP 

ES IGURIS3 “ 

9018 PRINT OUflDRfl " 

3020 PRINT SEQUENCIR (NRIPE5 

DIFERENTE53 " 

9022 PRINT 11 -> TRINCR + DUPLR" 
9024 PRINT TRINCR" 

9826 PRINT PRR DE DUPLR5" 

9028 PRINT DUPLR" 

3030 PRINT CRRTRS fi KG J 

10 9 8 7 6" 

3040 DIM MS (208! 

9042 LET M$=“* * ******** 
****** DijkANTE O UOGQ: RPO 

5TE 0 PRRR DESISTIR; O MESMO URL 
OR OUE O MICRO , PhRR UER O LOGO 
OU UM URLOR MAJOR PRRR CDNTINUAR 
PRRR INICIRR, TECLE ENTER. * 
***************" 
9044 FOR F = 1 TO 176 
9050 NEXT F 
9052 GOTO 3044 
906© DIM M$ (32) , 

9062 PRINT RT 21,0,M$ 

9064 RETURN 



as listagens 2 e 4 e o programa estara 
pronto para rodar. 

Independente da linha, grave o pro- 
grama com o comando direto RUN 
6000 e o mesmo sera executado auto- 
maticamente, alem de fomecer todas as 
ins tru^Ses para o jogo. 

A figura 1 contdm informa^oes sob re 
a logica e estrutura do programa, o que 
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Li&tagcm 4 - Arenas pars ZX Spectrum 



permitard aos uJudrios mais avim^ados 
inuvar ou pereonaliiar ojggo. Estaa in- 
fcmna^Oes s£g vdlidias para as tluaa H- 
alias de micros. 

PortantO, nt3gs a gbra (r prepare-Se 
para enfrentar um parCCiro da Cartas 
que nfo trapaccia c item (c Jeixa Ira- 
pacear, mas que nag escaped de dar um 



btefezinho dc vcz em quando. Divirta- 
se coni o grande jogador... seu micro 
Sinclair. 
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Ricardo de Oliveira 



Beth 21 



Podemos dizer que Beth 2 1 seja a irmff de Elza. Para quem 
nSJo a conhece, imagine uma linda garota, bonita e sensual, 
fazendo strip-tease no seu video. E isto mesmo. Strip-21, de 
origem francesa, foi o nome dado ao Jogo de Cartas 21 ou 
Black Jack, acrescido de um strip-tease. 

As regras sao as mesmas do 21, so que, se voce ganhar da 
banca, a Beth realizara um beli'ssimo strip-tease no video, 
acompanhada de uma musica. Caso contrario, voce devera 
realizar o strip-tease . 

Agora, ponha seus miolos para queimar fosfatos, pois a 
listagem a seguir tern apenas a parte do strip. Sendo assim, 
voce tera que adaptar o Black Jack (o jogo) a listagem. 

A rotina de som, que vai da linha 60000 a 60140, poderd 
ser utilizada em outros programas. Uma vez anexada em um 
programa qualquer, deve ser iniciada atraves de GOSUB 



60000, sendo que se podera fazer tantas chamadas quantas 
quiser. Um detalhe: se tiver que usar ainstnujdo CLEAR, 
voce devera utiliza-la antes da chamada GOSUB 60000, senao 
a rotina de som, armazenada em ZZ$ , serd destrufda. 

Veja abaixo um exemplo de como se pode chamar a rotina 
de som: 

S=USR(256 * D + F) 

onde S = variavel muda; D = dura^ao de som (0 a 127) e F 
= frequencia do som (0 a 255). 

Ricardo de Oliveira 6 funcionSrio do Banco do Brasil e atualmente tra- 
balha no CESEC-SP (Centro de Processamento de Servigos e Comunica- 
g desj. Autodidata em programagao, possui um Apple II e um CP-300 e 
tern como hobby produzir teias gri ficas. 



10 CLEAR 15000 
15 CLS# GOSUB 10000 

20 GOSUB 60000 s G08I.IB 15000 i GOSUB20000 

9999 CLS 

10000 F=28 ! F0RX=iT095i s READD TA s F=F+i s PR INT3F , CHR* ( DT A ) s 8 NEXT 
10010 DATA 160, 176. 0,0, 0,0, 0,0, 0,0, 0,0 ,0,0, 0,176, 0,176, 152, 134,1 

31.131.137.140.144.3.60.176.0. 0.0.0.0.0.0.0 

10020 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,1 

76.140.135.129.0. 131.140.176.0.0.0.160.140.142. 187.134.137.134.0 
,131,176, 140 ,134,131,131,131,141,143,181,162, 137 ,176,0,0,0,0,0,0 
10030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,176,14 
0,131,0, .160 , 152 ,134,141,176,0,0,131 ,140 ,176,144 ,185, 142 , 129,144, 

169.134.1.76.134.0. 140. 132.0.0.0.0.0.171 .132.153.0.137.176.0.0.0, 
0 

10040 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,176,140,131,1 

60.152.140.131.129.0. 0.0.0.131.189.176.156.140.182.178.146.160.1 

78. 141.171.129.176.144.129.132.0. 131.129.0.184.163.0.135.135.140 
,0, 137,176,0,0 

10050 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 184, 188, 190, 179, 179, 179, 

176.140.131.129.0. 0.0.0.0.0.0.184. 135.129.0.0.0.0.0.131.0.0.0.13 

7.176.130.131.129.0. 160.0.184.183.172.140.171 . 131.139. 180.130.16 
4,160,163,140 

10060 DATA 0,0,0,0,0,0,0,0,0,0,0,160,152,131,0,0,0,0,0,0,130,131 
,141 ,180,144,0,0,0,0,0, 130,173,144,136,191 , 157,0,0,0,0,176,144,0 
,0, 0, 131 , 129 ,0, 164, 129, 130, 139, 174, 148, 131, 174,0,0, 181 , 139,148,1 
29,129,176 

1 0070 DATA 0,0,0,0,0,0,0,0,0,0,190,129,0,0,0,0,0,0,0,0,0,0,0,0,1 
31,141 , 180, 176, 176, 184, 140,135,139,140,180, 176,188,140,134,131,1 

86. . ...... .189. . . .171. . 158. . .183.171 .130. 140.131.160 

10080 DATA 0,0,0,0,0,0,0,176,176,176,154,148,0,0,0,0,0,0,0,0,0,1 

44.0. 0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.175.144.0.0.174.191.132.0 
, 186, 175,180,0,0,0, 137, 149,0,0,170, 170,0,168,174,161 

10090 DATA 140,140,135,131,131,131,131,129, ,,, 139 , 180 ,,,,,,,,, 1 

30.164.144. . ........ ... .176.176.156.129.131.131.140.140.140.131, 

131. . .138.164. . . .139. 144. .170. .131. 129. .129 

10100 DATA 176,176,176,176,176, 176,176,176,176,176,176,176,176,1 

79.188.176.. . . . . . .130.173. 176. 176. 176 . 176 . 176 . 1 76 . 184 . 1 40 . 140 . 1 4 

2.131.131.129.. .., ,,,,,131,140,164,176,176,140,135,,,,,, 

101,10 DATA 0,,,,,,,,,,,,,,, 131, 140, 176,,,,,,, 131, 172, 144,,,,,,,, 



10120 DATA 0, 
10130 DATA 0, 



10140 DATA 0, 
10150 DATA 0, 



10160 DATA 0, ,,,,,, , 

10170 RETURN 
15000 FOR T=0TO1000!NEXT T 

15010 PR INT3B75 , "A" ; #S=U8R < 77431 ! PR INT3876 , "p " j ! S=USR ( 7747 ) : PR IN 
T3877 , "i- ~ « S-U8R (7735 > « PR INT887B , * s S=USR 1 13444 ) SPRINT3879 , "s" 
i !S»USR (7780) sPRINTaa**. "*"» s S*USR <7764 ) #PR INTS8B1 , "n"t • S-USR (77 
55) :PRINT3B82 r "t"f s S-USR (23107) .TOR T=0TO 15 ! NEXT T 
15020 PRXNT3883 , "a" i : S=UBR 1 7747 > :PRINTS)884 , "n"; :S=USR ( 7747 ) : PR IN 
T88B5 , "d" t 5 S-USR < 77 43 > s PR I NT3886 , "o" f s S*USR 17747 ) 5 PR INT3887, " . 
t sS-USR ( 7755 > « S-UBR < 7764 > « PR INTflSS? ?S=USR C 15449 > : S-USR <776 



,,,, ,131, 140, 176, ,,,, ,130,181 

,,,, ,152,140,131, ,,,, ,160,154,129, 



, 176,140,134,129, , , , , , 



,, ,158,129, , ,176,140,131, 



, ,158,129,0,160,135 



4) SPRINT8891,". s S-USR < 15449 > :S=USR (23140) 

15030 FORT=0TO500sNEXT T 
15040 RETURN 
20000 CLS 

20010 BES»CHRS<176 ) +CHR*(140 ) +CHR*<172 ) +CHRS1 156 ) 

20020 TH4-CHR * < 176 ) t-CHR® ( 1 88 ) +BTR ING* (3,179) +CHR* £141 ) 
20O30 Al-CHRSC 184 ) +STRING*<2 , 1401+CHR* ( 132 ) 

20040 B S=CHR SCI 60 ) +CHR 4(190) +STR I NS* < 2 , i 79 > +CHR * < 1 77 > +C( 
20050 C*«CHR* ( 134 5 +CHR*< 140 > +CHRS < 188 > +CHR*< 14.0) +CHR*( i: 
20060 DS-STR I NG* (2,128) +CHRS < 130 ) +CHRS1 173) +CHRS < 1 44 > +C) 
2007 0 E*-CHR* (140) +CHRS(176 > +CHR *(128) +CHRS< 140>+CHR*( 1.5 
144) 

20080 FS-STR 1 NG* ( 2 , 128 ) +CHR * ( 131 > +CHRS < 1. 43) +CHR 5 ( 1 79 ) +C1 
CHR$< 137 HOURS ( 164)+CHRS< 144 > 

20090 FOR Y-845 TO 278 STEP -63 
20100 PR ;t NTflY+i 25 , " 

20110 PR INT3Y , BES } 3Y+6 1 , TH*# 8-USR < 3000) 

20120 NEXTY 

20130 FORY-850 TO 283 STEP -63 

20140 PRXNT3Y+1 25," "t 

20150 PRINT8Y.A* f 0Y+62,8*js S=USR ( 3000) 

20160 NEXTY 

20170 FORY-873 TO 288 STEP -65 

20180 PRINT8Y-I-128," "t 

20190 PRINT3Y ,C*s SJY+64 , DS s s S-USR (3000) 

20200 NEXTY 

20210 FOR Y-B79 TO 294 STEP -65 
20220 PRINT8Y+127," "f 

20230 PRINT5)Y,E*saY+64,FSs s S-USR < 3000 > 

20240 NEXTY 

20250 FORR-46 TO 58 = SET 1 R , 1 1 ) s NEXT R 
20260 F0RR--64 TO 75 : SET ( R , 1 1 ) s NEXT R 

20270 FORX-0TO1 : SET ( X+47 , 10 ) : SET ( X+4B , 9 ) : SET ( X+49 , 9 ) sSET 

sSETlX+52,8) sSET (X+54,7 > #SET(X+55,7> sSET (X+56,6) »SET<X+S 

1X+57 , 5) ! SET < X+56, 4 ) s NEXT X 

20280 FOR X=56 TO 48 STEP -1 a SET 1 X , 3 ) i NEXT 

20290 FOR X=0TOlsSET( X+47 , 4 ) 5 SET ( X+46 , 5 ) : NEXT 

20300 FOR Y” 10 TO 3 STEP - 1 t SET < 69 , Y ) s SET ( 70 , Y ) : NEXT 

20310 FOR X=0TO2 s SET ( X+68 , 4 ) : SET ( X+67 , 5 ) sSET(X+66,6) «NE> 

20320 P OK El 5464 , 1 92 s POKE 15528 , 194 s POKE 15592,195 

20340 FOR X-S.27 TO 0 STEP - 1 s SET (X , 1 ) sSET< X , 19) ! NEXTX 

20350 FOR Y=i TO 19 = SET! 0, Y ) sSET ( 127 , Y ) : NEXTY 

20500 FOR T“0TO5000sNEXT!GOTO20000 

60000 ')>> ROTINA DE! SOM <<< 

60020 2*=3TRING»(24,32) 

60030 U-VARPTR ( Zi ) 

60040 L=PEEKCV+1) 

60050 M=PEEK(V+2> 

60060 E=L+256*M»IF EJ32767THEN E-E-65536 
60070 FOR OETOE+23 
60080 READ DTASP0KE1 ,DTA 
60090 NEXTI 

60100 POKE 16526, L s POKE 1 6527 , M 
60110 DATA 205,127,10,62,1,14,0,69 
60120 DATA 47,230,3,211,255,13,40,4 
60130 DATA 16,247,24,243,37,32,242,201. 

601.40 RETURN 








Conhecer as tecnicas de manipulagao dos recursos de alta resolugao 
e cor no Apple e a proposta do autor para a segunda parte deste artigo. 



Alta Resolucao 
em Assembler (II) 

Evandro Mascarenhas de Oliveira 



C onforme foi exposto na parte I (MS n ? 52), quando 
um bit dentro de qualquer byte da memoria de vi- 
deo esta em nivel alto (valor 1), sera aceso um pon- 
to luminoso, cuja cor dependent da sua posisao e 
do valor do bit 7 (bit da cor). 

A COR EM ALTA RESOLUCAO 

As tres cores fundamentais ou primarias: verde, azul e ver- 
melha, tern como suas cores secundarias ou complementares: 
violeta, amarela e azul claro, respectivamente; e quando ha o 
somatorio da cor primaria com a correspondente secundaria, 
ter-se-a a cor branca (figura 1). 

O projeto da cor no Apple estabelece que a coluna zero de 
qualquer linha tern a cor violeta quando o bit da cor (bit 7) 
e banco (valor zero) e tern a cor verde na coluna seguinte, 
de forma que todas as colunas pares (0, 2, 4, . . .278) tern a 
cor violeta e as colunas impares (1,3,5,... 279), a cor verde. 
Hd, portanto, 140 pontos violetas e 140 pontos verdes por li- 
nha. Da mesma forma, quando 0 bit da cor tern nivel alto 
(valor 1), havera a cor azul nas colunas pares e a cor vermelha 
(ou laranja) nas colunas impares (figuras 2 e 3). Se dois bits 
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Figura 1 - Cores 
primarias e 
secunddrias geradas 
pelo Apple . 
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Figura 2 - Cores geradas 
nas colunas par ou impar. 
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Figura 3 — Pontos luminosos coloridos nas colunas par e impar. 
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Vi = Violeta Az = Azul 

Vm = Vermelha Ve = Verde 



contiguos no mesmo byte tern nivel alto, sera formado um 
ponto luminoso alongado com a cor branca. 

A figura 4 representa o byte zero de qualquer linha da me- 
moria de video, onde, compondo-se os niveis altos e baixos 
nos sete bits, serao acesos pontos luminosos que darao origem 
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Figura 4 - Representagdo 
do byte zero da 
memdria de video em 
alta resolugdo, com as 
respectivas cores 
produzidas. 
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as seis cores do sistema: violeta, verde, azul, vermelha (ou la- 
ranja), branca e preta. Estas duas ultimas mostram dois valores 
para a mesma cor, gerando o branco 1, branco II, preto I e 
preto II. 

Colocando-se o valor $AA nos dois primeiros bytes de 
qualquer linha, havera a forma 5 ao da cor vermelha (ou laran- 
ja), no primeiro byte, e a cor azul, no segundo (figura 5); 
para que os dois bytes tenham a mesma cor, no caso a verme- 
lha, o segundo byte devera ter o valor $D5 (figura 6). 

0 programa a seguir demonstra o exposto na figura 5, 
quando, na linha zero, o byte zero sera uma linha vermelha e o 
byte um, uma linha azul, para o valor da cor igual a $ A A nos 
dois bytes; com os valores $AA e SD5, ter-se-a uma so linha 
vermelha nos bytes zero e um da linha 2: 



0300 s 1 
0300:20 58 FC 2 
0303:20 E2 F3 3 
0306: A9 AA 4 
0300s OD 00 20 5 
O3OB50D Oi 20 6 
030E: 8D 00 28 7 
0311 :A9 D5 B 
0313: SD 01 28 9 
0316:60 10 



□RG *0300 
J5R *FC58 
J5R S*F3E2 
LDA #*AA 
STA *2000 
STA *2001 
BTA *2800 
LDA #®D5 
STA *2801 
RTS 



; ENUERECQ INICIAL DO PROGRAMA 
? L 1 MPA AREA DE TEXTO 
5 SUB ROTINA HGR 

SCARREGA □ ACUMULADDR COM 0 VALOR *AA 
SEXIBE COR VERMELHA MO BYTE O-LINHA O 
; EX I BE COR AZUL NO BYTE 1 -LINHA 0 
I EX I BE COR VERMELHA NO BYTE O-LINHA 2 
> CARREGA 0 ACUMULADOR COM O VALOR *D5 
J E>< I BE COR VERMELHA NO BYTE 1 -LINHA 2 



A figura 7 mostra o par de valores a ser colocado nas colu- 
nas par e fmpar, para que se obtenha uma linha de cor unica. 
A preta e a branca tern dois valores, conforme o bit da cor 
seja um ou zero, daf a existencia de duas brancas e duas pretas. 

Para plotar pontos ou tra?ar linhas com as rotinas HPLOT 
e HLIN, carregue o acumulador com o valor da coluna d es- 
querda da figura 8 e transfira para o enderefo $E4, execu- 
tando as instru?5es inerentes dquelas rotinas. Para usar os va- 
lores da coluna d direita dessa figura, carregue o registrador 
X com o valor da cor e chame a sub-rotina HCOLOR, com inf- 
cio no endere?o $F6F0, que colocara os valores d esquerda 
da figura no endere?o $E4, seguindo-se as instru£<5es de 
HPLOT e HLIN. 
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Figura 5 

Algumas observances podem ser feitas a partir dos conceitos 
formulados: 

1 — As cores violeta e azul, assim como a vermelha e verde, 
nao podem coexistir no mesmo byte, pois o bit 7 tern valor 
diferente, zero ou um, para aquelas cores. 

2— Os valores hexadecimais para as oito cores resultam do 
binario lido da direita para a esquerda, conforme mostra a 
figura 4. Estes valores estdo resumidos na figura 8 para serem 
utilizados quando for necessario empregar as sub- rotinas 
HPLOT e HLIN. 

3 - Com o uso do HPLOT, nao se deve colocar a cor de 
uma coluna par em uma coluna fmpar, o que resultard na ine- 
xistencia do ponto luminoso. Este procedimento tambem vale 
para o comando HLIN, no caso de linhas verticais. 

4— A cor branca -I e criada pelo somatorio das cores verde 
e azul (com o bit 7 alto) e a cor branca -II pelas cores vermelha 
e violeta (com o bit 7 baixo). 

5— A cor vermelha aparece na maioria das vezes, com o 
tom laranja ou matizes que variam conforme o monitor ou 
teve colorida do sistema. 

6— Usando-se a sub-rotina BKGND com valores das diver- 

sas cores mostradas na figura 8, surgirao faixas coloridas, — 
combinando as varias cores do sistema. ® 



Figura 6 
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Manipular adequadamente a tela de ujn 
microcomputador da linha TRS-80 e um dos maiores 
desafios para um programador. Aceite-o. 



Eduardo O. C. Chaves 



Manipulando a tela 

do TRS-80 



m dois artigos anteriores, “A tela 
do seu micro” (MS n? 49) e “Ma- 
nipulando a tela” (MS n? 53), 
examinamos os varios formatos 
de tela das principals linhas de micro- 
computadores e corner amos a discutir 
como manipula-las. 

Hoje falaremos como manipular, 
usando a linguagem BASIC, a tela de mi- 
cros da linha TRS-80 modelo III. 

Esses microcomputadores dispOem 
de uma instm^ao, para manipular texto 
em telas de baixa resohwpSo, que nao Vi- 
mos ate agora. A linha ZX81 usa, nesse 
caso, como vimos, basicamente, a intru- 
930 PRINT AT, seguida da especifica9ao 
da linha e da coluna. A famflia Apple ja 
usa os tabuladores horizontal e vertical, 
HTAB e VTAB. A linha TRS-80, mode- 
lo III, por sua vez, usa a instru95o 
PRINT® (que pode ser lida como “Print 
Arroba”). 

A instru9ao PRINT® e seguida de 
apenas um parametro. Esse parametro 
n5o especifica, na verdade, de uma ma- 
neira direta, nem o numero da linha 
nem o da coluna. Como vimos no pri- 
meiro artigo desta serie, a tela de baixa 
resolu9ao dos microcomputadores da li- 
nha TRS-80 modelo III, e formada por 
16 linhas de 64 colunas, possuindo, por- 
tanto, um total de 1024 posigoes. 

A sintaxe da inst 111950 PRINT® e a 
seguinte : 

PRINT® numero de 0 a 1023, nume- 
ro ou cadeia de caracteres. 

44 



Para a instru95o PRINT® , a posi9ao 
numero 0 da tela e o canto superior es- 
querdo, e a posi9ao numero 1023 e o 
canto inferior direito. A numera95o e 
contfnua, come9ando no canto superior 
esquerdo e, prosseguindo, da esquerda 
para a direita, e de cima para baixo, ate 
atingir o canto inferior direito. As posi- 
90es numero 479, 480, 543 e 544 for- 
mam, portanto, um quadrado exatamen- 
te no meio da tela. A razao pela qual pe- 
gamos quatro pos^Ses para ficar no 
meio da tela e a seguinte : como tanto o 
numero de linhas como o de colunas e 
par, se pegarmos a posi95o 512 — que e 
a metade de 1024 — n5o ficaremos no 
meio da tela, mas na primeira posi9ao da 
nona linha. As posi95es 479 e 480 ficam 
exatamente na metade da oitava linha e 
as pos^Qes 543 e 544 na metade da no- 
na linha. Essas pos^Ses representam, 
portanto, no piano horizontal, exata- 
mente o meio das respectivas linhas. E 
as linhas oito e nove sao, no piano verti- 
cal, as que ficam justamente no meio da 
tela. Logo, as quatro pos^oes indicadas 
ficam exatamente no meio da tela, tanto 
no piano horizontal como no vertical. 
Entendido? 

No ultimo paragrafo de nosso primei- 
ro artigo afirmamos que os micros da li- 
nha TRS-80 modelo III n5o eram, real- 
mente adequados para graficos de alta 
resolu95o, devendo nos, com eles, ater- 
mo-nos aos caracteres graficos pre-defi- 
nidos. 



Na verdade, porem, e possfvel gerar 
graficos de media-baixa resolu95o na te- 
la desses microcomputadores, tal como 
nos micros da famflia ZX81. Para fazer 
isso, devemos imaginar o espa90 ocupa- 
do por um carater na tela de baixa reso- 
IU950 dos microcomputadores da linha 
TRS-80 modelo III, como sendo cons- 
titufdo por um conjunto de blocos (re- 
tangulos) dispostos em tres linhas de dois 
blocos cada. Mais ou menos assim: 

CJCU 

Z1Z3 

Se voce ja viu um micro dessa fami- 
lia, certamente ira estranhar a forma 
dessa figura: os caracteres na tela nSo 
parecem ser tao retangulares assim. Na 
verdade nSo sao, pois os caracteres que 
aparecem na tela sao formados por uma 
matriz que tern basicamente o mesmo 
numero de pontos na horizontal e na 
vertical. Acontece que esses micros espa- 
cejam as linhas bem mais do que, por 
exemplo, os da famflia Apple. E que o 
espa9o existente entre uma linha e outra 
e ocupado pelos dois blocos situados na 
parte inferior da figura! Assim sendo, 
um carater e representado, na tela de 
baixa resolu9ao, por uma matriz quadra- 
da, e n5o retangular, mais a respectiva 
entrelinha. Na tela de media-baixa reso- 
IU950, porem,. temos acesso tambem 
ao espa9o que separa uma linha da outra. 
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As instrugoes que nos permitem ma- 
nipular (em BASIC) a tela de media-bai- 
xa resolugao dos micros da famflia TRS- 
80 modelo III sao SET e RESET. A pri- 
meira nos permite colocar um bloco na 
tela; a segunda nos permite remove-lo. A 
sintaxe da instrugao SET (a da RESET e 
identica) e a seguinte: 

SET (coluna, linha) 

Nao deixe de prestar atenglo ao fato 
de que os parametros, neste caso, vem 
entre parenteses. A coluna indica a posi- 
gao no piano horizontal. Como esses mi- 
cros podem exibir 64 caracteres em uma 
linha, e como o espago ocupado por ca- 
da carater pode ser dividido horizontal- 
mente em dois bloco s, pode haver 64x2 
colunas, ou seja, 128 posigoes horizon- 
tal. A linha indica a posigSo no piano 
vertical. Como esses micros podem exi- 
bir 16 linhas, e como o espago ocupado 
por uma linha (e a correspondente en- 
trelinha) pode ser dividido verticalmente 
em tres blocos, pode haver 16x3 linhas, 
ou seja, 48 posigoes verticals. Logo, a te- 
la de media-baixa resolugao dos micro- 
computadores da famflia TRS-80 mode- 
lo III permite que se acessem 128x48, 
ou seja, 6144 posigOes, e, portanto, que 
se exibam ate 6144 blocos. 

Note bem que, tambem nesse easo, o 
0 e utilizado. As colunas, portanto, v§6 
de 0 a 1 27 e as linhas de 0 a 47. A coor- 



denada 0, 0 representa o canto superior 
esquerdo da tela. 

Da mesma forma que no artigo ante- 
rior, vamos apresentar dois programas 
que imprimem uma moldura na tela dos 
microcomputadores compatfveis com o 
TRS-80 modelo III. O primeiro e o pro- 
grama 1, que utiliza recursos de baixa 
resolugSo atraves da instrugao PRINT®. 
Jd no programa 2, que e dado no final 
do artigo, usa-se a media-baixa resolu- 
gdo, por meio da instrugao SET. 



PROGRAMA 1 



10 CLS 
20 C=64 
30 L=16 

35 REM IMP RIME MOLDURA SUPERIOR 
40 FOR 1=0 TO C-l 
50 PRINT3I , 

60 NEXT I 

65 REM IMPRIME MOLDURAS LATERAIS 
70 FOR I=C TO C*<L-1)--1 STEP C 
80 PRINT3}:,"*":F’RINT3I+(C-i) r "*"} 
90 NEXT I 

95 REM IMPRIME MOLDURA INFERIOR 
100 FOR I=C*(L-1) TO <C*L>-2 
110 PRINTS!!,"*"? 

120 NEXT I 
130 GOTO 130 



No programa anterior, as variaveis C 
e L (lembre-se de Coluna e Linha) rece- 
bem os valores iniciais de 64 e 16, res- 
pectivamente, nas linhas 20 e 30. Esses 
sdo os valores correspondentes ao nume- 



ro de colunas e de linhas da tela de bai- 
xa resolugao desses micros. 

O processamento necessario para se 
fazer uma moldura horizontal na parte 
de cima e facil. Fazemosum lago de ite- 
ragSo (repetigao), nas linhas 40 a 60, 
que fara com que a instrugao da linha 
50 seja repetida 64 vezes. Na primeira 
vez I tera o valor de 0, na segunda 1 , e 
assim por diante ate chegar ao valor de 
63 (C-l). O asterisco impresso quando 
da ultima repetigao sera colocado na ul- 
tima, ou seja, na sexagesima quarta colu- 
na da primeira linha. 

A moldura horizontal inferior tam- 
bem nSo oferece problemas. Ela e exe- 
cutada pelo lago de iteragao que se en- 
contra nas linhas 100 a 120, fazendo 
com que a instrugao da linha 110 seja 
executada 63 vezes. Na primeira vez, I 
tera o valor de 960 (64 *(16*1)); na se- 
gunda, o valor de 961 , e assim por dian* 
te at6 chegar ao valor de 1022 ((64 *16) - 
2). Aqui voce certamente devera notar 
duas diferengas em relag So ao conjunto 
de instrugQes que faz a moldura supe- 
rior. Em primeiro lugar, aqui subtrafmos 
2, e nSo 1, do valor final. A razao para 
isso esta no tipo de comportamento que 
a tela exibe quando estamos lidando ou 
com a ultima coluna de uma linha ou m 





Fa 2 a Folha de Pagamento de sua empresa, 
emitindo relatorios como Guia de IAPAS, 
Guia de FGTS, Relapao de Empregados, 
Relapao para I.R., Relapao para Banco, 
Informe de Rendimentos, Acumulados 
Anuais, RAIS e Rectbo de Pagamento. 

A folha pode ser semanal ou mensal. 

As tabelas sao modificadas pelo prdprio 
usuario. 

Permite tamb6m, adiantamentos de sal5rio, 
reajuste salarial, alterapoes de acumulados e 
outras funpSes que agilizem o processamento 
da Folha de Pagamento da empresa. 




A Contabiiidade de um m§s em apenas 2 horas! 
Este Sistema permite o cadastramento de 
histdricos padronizados e de piano de contas 
com at6 5 nfveis. 

Emite Di£rio, Razao, Balancete, Balanpo, 
Demonstrapao de Resultados. Demonstrapao 
de Lucros e Prejui'zos acumulados, Listagem 
por centro de custo e extrato de contas, entre 
outras funpdes. 




Controia o estoque de itens com 
Especificapao, Estoque Mfnimo, Unidade, 
Fornecedor, Localizapao e outras 
informapoes relacionadas no item como 
Custo M6dio, Entradas e Sai'das no perfodo, 
etc. 

Fornece Listagens Gerai e Parcial dos 
produtos, Listagem Fi'sico-Financeira, 
Listagem dos produtos abaixo do estoque 
rhi'nimo, Lista de Prepos e Etiquetas, entre 
outras. 

Admite tambSm, Reajuste de Prepos, 
Alteragao de Dados e Exclusao de Produtos. 



Compatfveis com as linhas TR5-80 e Apple. 
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com a tiltima tin ha da tda. So subtrais- 
semes apenas 1 do valor final, renames 
urn astcrisco impresso na tiltima coluna 
da ultima linha e isso faria com que a te- 
la subisse, destniindo no$$a imagem su- 
perior, Vamos ter que nos ccmtentar, 
ncsse caso, em ficar com uma moldura 
meio defeit umsa, na qual f'aJta um a&te- 
risco no canto inferior direito, No pro- 
ximo artigo, veremos urna niancira de 
COirigir esse problems, Em segundo lu- 
gar, aqui colocamos urn ponto e virgu- 
ta depois do astcrisco, na instntfao da 
ljnfoy 110, enquantp que na instrugao 
correspondents da linha 50 nSo o colo- 
eamos.. A raz£o, novamente, se deve ao 
fa to de que estamos lidando com a ulti- 
ma linha da tela. Sc tiSd eolocarmos o 
poiito e virgula, o cursor iia para a li- 
nha seguinte, cada vez que a imtrug ao for 
execittada, faze n do com que a tela sub a, 
de strain do a moldura, 0 ponto e virgula 
faz com que o cursor nfto passe para a li- 
nha seguinte depois de cad a cxecugao. 

A maior dificuldade aparece em reta- 
giio asmolduras laterals. Como a moldu- 
ra 31 per tor ja eolocou um asterisco na 
primeira c ua ultima coluna s da primefo 
ro linha, comeganenios a desenhar nossas 
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mo! dura s laterals na segunda linha. E co- 
mo a moldura inferior j a eolocou um as- 
tcrisco na primeira coluna da ultima li- 
nha,. e ja vimoa que a coloeagao de um 
astcrisco na ultima coluna da ultima li- 
nha e problems lica + farernos com que 
nossas molduras laterals t emu item na 
pend] lima (decima quinta) Linha r E isso 
que explica o fato dc que a variavel 1 e 
inicializada com valor de 64 - esse e o 
numero correspond ente a primeira co- 
luna da segunda linha — na linha 70 e 
tein scu valor aumentado ate 959, ou 
seja, (C * (L-l) - 1} que e o numero cor- 
respondent e i ultima coluna da pcnulri- 
ma (decima quinta) linha. 

O proximo complicador esta na parte 
da in strug ao da linha 70 que sc refers a 
instragao STEP C, Isso quer dizer quo a 
iteragao coherta pdas linhas 70 a 90 se- 
ra cKGeutada quatorze vezes, porque de 
64 (valor inidal de I) a 959 (valor final 
de I) ha 896 nfimeros, e o valor de I sera 
aumentado em 64 unidadcs a cada repe- 
cigdo - esta e a fung ao do STEP C, Co- 
mo 896/64 = 14, a itcragSo sera repetida 
quatorze vezes. Na primeira vcz, l tera o 
valor de 64; nas vezes subsequences tcra 
o valor dc 128, 192. 256, 320, 384, 
448, 512, 576, 640, 704, 768, 832 e 
896. Na decima quinta vez, teria o valor 
de 960, valor que ]§ 6 maior do que 959, 
ruzao pela qual a it crag So so c exccutada 
quatorze vezes. 

A linha 80, porem, prccisa ainda ser 
explicada. Neb temos duas instrugQcs 
PRINT©. Com a primeira, imprimimos 
um astcrisco na primeira coluna de cada 
uma das quatorze liniias que fleam entre 
a primeira e a ultima, porque o valor de 
1. Como vimos, sera sempre correspon- 
dent? ao numero da primeira coluna 
dessas linhas. Com a segunda instragao. 
imprimimos um astcrisco na posigao 
[+63, on seja, ra ultima coluna das me &■ 
mas quatorze linhas. E assim estarao fei- 
las nossas molduras laterals. 

Novamente voce dev era ter notado 
que a primeira das duas instrugOes da 
linha 80 n3u tem ponto e virgula depois 
do asterisco, c que a segunda tern, Como 
assinalamos, o problema aparccc sem- 
pre que estamos lidando com a ultima 
coluna de uma linha ou com a ultima li- 
nha da tela. Como a segunda instrugSfo 
coloca o asterisco na hi lima po$ig-3o das 
quatorze linhas entre a primeiia e a ulti- 
ma, torna-se necessario o ponto e virgu- 
la, 

Para o proximo programa, voltare- 
mos ao model o de programs ji ulilizado 
no artigo anterior. 



PROGRAMA 2 



le cls 
2* L=& 

3@ CftSIJB 5*^ 

4G L -o,7 

GCSUa t3 8& 

Hj* C-* 

7& GOGUE 5-59 
ft* C=i27 

v* ccsua 55 & 

¥0 G01U 95 
ifttt MD 

5^* fiEH "FL&TA" UMA LIHHA 
^10 Frt& r = (3 Tf> lSZ 
52* SET C C . L 1 
HEiXr l; 

G-1& RETUSW 

LiL* M-tfl "PLftTA" UMA COLUHA 
Si® TOR L 8 TO 47 
57® GET (C r L ) 

5ft® MEXT L 
5?® RETUFH 

N5o creio que baja sequel necessida- 
de de comcntar esse programa. Mesmo 
que voce nao tEnha lido o artigo ante- 
rior, o programs i simples e auto-expli- 
cativo, 

Ao invea de comentar o programa 2, 
vamos transcrever aqui mais qnatro pro- 
graminhas inicressaiitcs, que oiipnal- 
mentc aparcceram cm uma resposta d& 
MICRO SI STEM AS, public-ad a na Segao 
MS Responds, do n9 47. 

D UL!i 

10 roR I-® TO 47 

28 E E r ( ® . I J : 5 E T ( 1 27 , 4/- 1 > 

30 hfF*T I 
40 ROTO 4® 

5 ELS 

i0 F(?R I-® TO 47 

70 SE'K®, I 5 : HFTC *2/ ,47 l J 

iiO NEXT r 

4® F®S 1 = 0 T & 127 

5® SETtI,&>:SET<12?-Ip47> 

4® ME VT I 

70 UO-IC 7ft 

1® FLU : K=® 

^5 ffF'r;i3T+7J 

U(S FOR 1-44 rti ft STEP -1 

3® K— K-l-i ^ 

nft SET C43 + K . I > = SE T ( 6 3 -X , I ) 

5® NEXT Z 

4* GOTO A® 

1® CLSiX=A 
15 SET(4S,0i 
£® FOR 1=1 TO 47 
00 K-K/ti 

4® SET < A3+K T D :S£T(43 K P tl 
58 NEXT 1 

A0 nCTO 4® 

Esses programinhas Scio simples e in 
tcressantes. Com des, voce ji pode co- 
rn eg ar a antever possibilldades que vo- 
ce tem diante de si, Manipular tdas de 
alta resolugjo e uma das aiividades mats 
interessantes e de&afiudoras na pmgra- 
maga'o de microcomputadores. Vd cm 
fiente. 
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eoes",. peia Carlaraf Editor-a. 
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Nestaedigach MStrazmaisumartigo sobreopadrao MSX. Conhega 
agora as caracterfsUcas c comandos graficos desses equipamentos. 



Comandos graficos 
no MSX 

— _ Oscar Surd e Lui / Sergio Moreira 



A fanulia MSX passui quarro tipos tie telas: duns 
para tcxto c duns para graficoi. As oh am a das tel as 
graficas pod e in scr do baixa ou alia resolute, 
aprcsentando a& seguintes caracletfsticaa: 

* Tela grafica de baixa' resolute (ou multicolor) - divide -se 
cm 64 column e 48 linhas, scndo passive! a ulilizafao de 16 
cores rimullaneamente, 

* Tela graficu de pita reSOlufSo d compost a por 192 linhas e 
256 colunai. Neste tipo do tela lambem d possjvcl a ulilizia^ Jo 
de 16 cores si mult an e amen te. 

Agora, loma-se necessario o conhecimento dos comandos 
graficos do MSX -BASIC, o quo veroinoa a seguir: o coitiando 
SCREEN selector a a tela grifica; SCREEN 2 ft ab ill la a tela gra- 
Pica de alia resolugao c SCREEN 3, a tela grafica multicolor, 
Como ja dissemos. existem 16 cores dispomveis, as quais 
s3o selecioiiadas pclo comando COLOR. listq comando possui 
ires paratnclros (separados por virgulas) com j sinlaxc COLOR 
x, y, z, onde: 

x 6 a cor com a qua! serao ira^ados os dc&enhos, exceEo no 
easo cm que outra cor e espectficada dent rode on ires coman- 
dos graficos do MSX-BASIC; 

y e a cor do fundo, on seja, a cor sob re a qual o desen ho sera 
criado (imagine uma tela de pintura; yea cor desta (cla e\a 
da tinta cent a qua! voce a pa i Hard): 

7 e a cor da borda ou moldura da lela (equivale & cor da mol- 
dura de um quadro - lemb rc-sc que nao podemos pin Ear so- 
bre a moldura). 

x„ y, z variant de 0 ate 1 5 „ de acordo com a label a de corres- 
pondence numero-cor que foi apresentada no artigo 0 Padrao 
MSX, publicado cm MS n? 53. Veja o exemplo: 

10 SCREEN 2 
20 COLOR 15,4,9 
30 GOTO 30 



O programs acima scleciona a tela de alta resolu^&o na linha 
10; f*z a cor de pintura ser branca (1 5); a cor de fundo azul 
escura (4) e a borda vcrmelba (9). Todo esse proCeSSO ocorre 
na linba 20 (observe a figura I). A linha 30 man 1dm Sigada a 
tela de alia resolute, uma ve 2 que o padrao MSX volla auto- 
maticamente para a tela de texto quando urn program a 6 cn- 

cerrado. _gi car da bariis 



■car 
i rar«ca 



Ci-t ■3'! f 2-011 



Figura 1 

TRA£ANDO LIN HAS E FIG LIRAS 

O comnndo LINE permile o tra^ado de segmented de retas 
na cor estnbelecida pclo com and a COLOR ou airibuula no 
propria comaudo LINE. Sua sintaxe c LINE (xi, yi) - {xf , y l)i C, 
onde: 

xi„ yi e a coordcnada cartesian a a partir da qual sera tr^pdn a 
ret a; 

xf, y f e a coordcnada cartesian a final da re la; 

C e o para metro que indica a cor n a qual sera tra^ada a ret a 
(optional). Caso este para metro seja omrtido, sera utilizada a 
cor deiinida por COLOR, hto tanibem e valido para o para- 
metro cor de todos 05 outros comandos graficos (excero no 
comando DRAW). Pot exemplo: 

10 SCREEN 2 

20 LINE (0,0)-C255,191),7 
3 0 GOTO 30 i^, 



as? 
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COMAWDQS GRAFIC0S NO MSX 





0 programs aeima desen ha* na Units 20, uma rets da coop 
denada (0, 0) ate a coordenada (255, JOT) cm Cor azul clara 
(7), As dcmais linhas ja foratn deicntas no exemplo anterior. 
Vqa na figura 2 o result ado da cxcCugao do progr&ma, 

Caso desejasscmos tregar autre India a partir do nosso pom 
to final (eoordenada 25S, 19 1 ), Icriamos de acrcsccntar a 3i- 
nha 25 LINE - (127, 10), 13. Esta linha seri tragada cm cor 
roxa(l3), a partir do ponto(255, 191) at£ o ponto{ 127. 10). 
Nosso programs agora e: 

10 screen 2 

20 LINE <0,O>-( 255, 191) ,7 
25 LINE! -[127, 10), 13 
30 GOTO 30 

N r a figure 3 pode ser visio o resullado da cxccugSo do progra- 
ms acinui. 

0 coma ud o LINE tambem pcmifie o tragado dc rctangulos, 
baslando para tal acrcscentar o parSmetro B (do ingles box) no 
final do com an do. Pare tregar um rctangulo entrc as coordena- 
das (50, 50) e (100, 90), na cor vcrde clara (3), lerfumus. que 
digital este programa: 

10 SCREEN 2 

20 LINE (50, 50) -(100, 90) , 3 H B 
30 GOTO 30 

O result ado pode ser visual IstadG na figura 4, Pare desenhar o 
retangulo preenchido, basta escrevor BF no liigar de B nalinha 
20 , 

Com o comando CIRCLE podemos tragar circunferencias 
ou el i ps.es (circunferencias achatadas), sen do sua sintaxe CIR- 
CLE (X, V), R, C AL, AF, AS, Glide: 

X, V e a cocrdcnuda do centra; 

R c o raiu (maior) da figura a ser eriada; 

C £ a cor da figura (optional}; 

AL 6 o augulo miciaJ (cm radianos); 

AF c o angulo final (cm radianos); 

AS 6 o aspecto da figure, 

O programs abaixo dcsenha urn a circuit fere ticia com ccntro 
em ( I 27, 95), rain 100 e cor vennclha (9), 

10 SCREEN 2 

20 CIRCLE (127,95) , 100,9 
30 GOTO 30 

A figura 5 mostra o rcsultado deslc progrema. 

Os parametros AT, AF e AS (opeionais) $dr£o tratados data- 
lliadamente em oulro art Ego. Para aquelc$ que sao curiusos* 
passamns um programs que utilize o para metro AS: 

10 SCREEN 2 

20 FOR I - ,2 TO 2 STEP ,2 
30 CIRCLE (127,95), 10G P 9, , ,1 
40 NEXT 
50 GOTO 50 

Alens dos comandos anteriorcs, o MSXdiASlC content Lima 
macrolinguagcrn dc desenho que tambdEn permits a geragau de 
figures base ad as em segment os de ret as. Com o uso desta ma- 
erdinguagem, pode-se rotacionar c amp] tar as figures eriadas. 

&Q 



To da csss finguagem £ acessada ulraves. do con] and 0 DRAW. £ 
seus macrocomandos estfo relacionados na figura 6. 

O cemnando FAINT permite o preenchirnento dc irguras 
ccmiplexas e feebadas. Sua sintaxe £ PAINT |X, Y). C, onde: 

X L Y e qualquer coordenada dentro da figura a ser pintada; 

C £ a cor esculhida para o preenchimento da figura. Fm alt a re- 
solugau, esta cor deve scr a mesma que a da figura a ser preen- 
diida. 

O programa, a seguir, dcsenlta e preenche uma eircunferen- 
cia com a cor ainarcla (II). 

10 screen 2 

20 CIRCLE ( LOO, 100) , 50 , 1 1 
30 PAINT <100,1001,11 
40 GOTO 40 

OS FAMOSOS SFRITES 

Sem duvida, uma das estrelas do padrao MSX sao os sprites, 
Virtuaimente, as tel as graftcas dos micros desta t'amilia (e uma 
das Lei as de texto) sar> tom pastas por 32 planrjs Sab rep OS LOS 
(voed pade imaginar 32 folhas de ptjslico sob repost as) nos 
quais podemos movimentar pequenas figuras chant adas sprites. 

O MSXdiASlC permite que sejam criadus ate 256 desras fi- 
guraSj e cad a uma pode ter uma das 16 cores dispomveis. O 
mais interessante de tudo d qtie nm sprite situado no prime iro 
piano passara sobre os sprites !o cal i /.ados nos pianos inferiores, 
criando assim urn cfeito de perspectiva. Cahe nolar que pode- 
ni os colocar utn inesmo sprite em pianos distintos, cada qual 
com uma cor diferente, 

F muito simples a criagao de um sprite tendO'Se cm vista 
scu format g matricial e as faeslidades oferecidas pclo M-SX-BA- 
SK’, 0 programa seguinte crEa a sprite de um quad rad o e imovi- 
merta-o at raves da tela da esquerda para dire it a no piano 0 c 
de enna para baixo no piano 1 . 

10 
15 
20 
30 
40 
50 
GO 
70 

eo 

90 
100 
1 10 
111 
112 

113 

114 
140 
150 
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SCREEN 2,0 
REM DEFINE SPRITE 
A$= CHR$<6Bll 111111) 
CKRS<LB10000001) 

C$= CHR$<^Lil 0000001 ) 

DS- CHE15( 10000001) 

ES= CKKSUB10000001 ) 

FS« CHRS (tB) 000000 1 ) 

C$= GHK5 {£B 1000000 1 ) 

HSr. CHR5(£B1 111 till) 

£ERITES(0)“A$+ES+C5+DS+E$+FS+0S+HS 

REM 

REM MOVIMENTO 
FOR 1=0 TO 191 
PUT SPRITE fJ, (I, 95), 9,0 
PUT SPRITE 1, (127, l), 7,0 



NEXT 

GOTO 110 
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Ftgura 6 

Final izando topico, lembiamos que u MSX-BASIC pos- 
Hii e cunundo* especiais para □ trainmen to de coiiiiao de sprites, 
os qua is sdo imiito uteris m eiabora^ao de jogus e iinimaffts. 

Uma ouira taeilidade oferecida pclo MSX'BASIC c a s^tm- 
jdicidade coin que podemos eicrcver cm modo grdflco. For 
excmplo, sc quiscrrnos escrever em aha resolute, devemos, 
cm prinictro lugar, abur a tela gtafica como um aiquivo alia- 
ves do comando OPEN. A seguir. podemos especiHcaf a coor- 
denada. a pjrlir da qual nosso icxici seri impresses com o CQ~ 
nundo PRESET e, por fim. descrevenios o Eexto. uiplizando 
0 coniando PRENT fr 

No program a abaixo impriniimos MICRO SISTEMAS cm 
tor verde clan na coordenada (99. 99). 

10 SCREEN 2 

2 « COLOR 3 P 1 i 7 

3p! OPEN ''GRP: " POR OUTPUT AS W 1 . 



X n«>, bdj iiiorm so- ponta inin«l> 

An ir'.'j'j I q de ratacaa, n v«te t.Ll 1- 

/ 



2 

C J* Bli/iB LOT. Ji 3 B Q 9-1. “ 15, 

Sri altera □ taiai dr tiCtli t> a# Q at? JSS (3ta!*alt»41, 

u HAS1C divide ra per 4. 

eaecyta a- c^nl rude dv liii c r d-aa lii-Krtt'lOJ - 1120# 

UKAJh "Ji LSj " S . 



4$ PRESET ( r J9,35> 

5$ PRINT # 1 ( "MICRO SI STEM AS” 

60 GOTO 60 

Esperanto* ter passado uma ideia blsica sob re u>. recursos 
grjfieos da fain ilia MSX e lembramos. Liinda, que no proximo 
JMigo discutiremos out ms comandos do MSX-BASIC. 



01 X 37 Julio Burd s Lutz Sergio Y. Maretra, atnbot fQriw&dOi #n FtifCS 
peta U$P r sap difeiorei do CE Bt — Centra Educactor ml BftS/ftirO de in- 
iorm 4 \t£ 4 . emprese esperiafu Kft m produp#o dc wftwdnt uducactonat e 
Mies&orie » coifyim. 



Suprimentos Prodata 



uma boa impressao do que foi gravado. 




Agora suas 



impressoras MX-80, 
Grafix-80, Prolagica 



P-SOO. JSA/Ecodata. e 

similares ja podem 



contar c/ a boa 
impressao das f rtas 



Prodata, 



Consulte-nos sobre 
preqos especiais 



de lanpamento. 



? 1 OP AC A 



— S.Pauio 



Rua Hertrique Ongari, 103 CEP 05038 



™ Tela.: 804*8590 |llnha tronco) 



Repreaantantea: Rio de Janeiro: fone-253.348UBelo Horizonte: fonee-225.9871 e 225.4235/ 
Braailia:fone-223.6293/Curitiba:fbne*2B3.3224/Porto Alegreifonea 26.6003 e 20.13r9/Recifte:fbne*227.2960, 
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Para tirar o maxima de proved o dos recursos grdficos (Jo 
Apple P o ttsudriopode con tar com uma moderna f err amenta 
tecnologica : o Compopad, uma prune beta eletronica 
(versa a nacional do Koala Pad) fabric ada pela Compo do BrasiL 



Prancheta eletronica 



O s usudrios do Apple que utili- 
zani o seu micro na £rea grd- 
fica, agora, ja tern, a sua dis- 
position mais urn accssbrio 
que os auxiliary bastante na cria^^o de 
desenhos no video: a prancheta eJeird- 
niea que subttitui com vantagens o joys- 
tick, na malaria dos programas grafiem 
existences para esta hnha de mieroconv 
put adores, e que permite ainda a re- 
produce no video dos ira^os exeeuta- 
dos na mcsina com urn egtilete de plds- 
tico em forma de caneta. 

Este produto d uma versao national 
do conhccido Koala Pad e esta sendo fa- 
bricado e disiribui'do, no Brasil, pela fir* 
ma Compo do Brasil ind. c Com. Ltda. 

“0 Compopad c uma moderna fer- 
ramenla Tecnologica, que permite dese- 
nhar e ilustrar na tela do computador, 
podendo tamb£m sei usada para emrete- 
m me nl o, educate e aphcai;6es comer- 
dais. Seu uso d simples e intuitive: bas- 
u couecti-lo ao computador e carregar 
o programs, mini estara pronto para 
come^ar. ..." 

Lsta 6 a apresenta^ao do produto «n 
seu manual dc utilizagan, sendo, real- 
me me, confirmada a iacLUdade de ope- 
ra^lo, t an to da prancheta quant o do 
program a grail co que a acorn pan ha, o 
Compo Micro flusirator que d uma ver- 
slo nacional do Koala Micro IhiStraiot, 
com alguenas modifica^Oei, den ire elas 
a mduslo de urns saida direta para im- 
pressora. a qual nlo esta dispomvcl no 
Koala. 

Tambdm foram retirados, da nova 
versJo, alguns modos de operatic que 
sent duvrida fa rat j t'aJla ao usudrio, Sdo 




eles: o modo “Rays"\ que faz o tra^ado 
de raios no video, e os modes ‘'Normal/ 
Magnify", que chaveiam a a present a;fo 
no video do desenho ampliado on nor- 
mal. 

As modifica{6es efetuadas no progra* 
ma, que acompanha o Compopad, itlo 
afetam o seu desempenho, mesmo por- 
que o programs original pode scr utihza- 
do com o acessorio sent adapfacOes, sen* 
do, portanto, relaiivamente fatil const* 
guHo, Akm dos program as citados, hi 
outros que funcionam perfeilamente 
com a prancheta, pois da foi testada 
com os programas Prim Shop c The 



Graphic Magician e o result ado foi bas- 
tanlc satisfatdno, o que permite con- 
cluir que qua) que r programs grdfico. uti- 
lizando*se do joystick analdgico do 
Apple, pode obter um rendimenlo me- 
Ihur com o Compopad. 

O produto vein Kondicionado cm 
uma caixmha de papello corn a tea para 
tiansportc. Na caixa «lio o manual do 
usuario, uma canda de toque, ura dis- 
crete de 5 l/4’ r T com o programs Com- 
po Micro lh strut or. e a prancheta ele* 
trikiica. 

A prancheta tern dimensfles reduzi* 
das ( 1 & cm ,x 16 ent i c po&sui urn conec- 
tor para Eiga^Io ao micro atravds do plug 
do joystick, sendo que o material ulili- 
zado para a sua confcc^Io i de prime i- 
ra qualidade e o scab ament o 4 impeca- 
vel, 

□ manual de uliliza^Io e simples e 
objsiivo. possuindo ainda tnslru^Ses de 
instala^ao e uso do pro^rama que acom* 
panha a prancheta. 0 programa Compo 
Micro flusiraior permite a cria^ao, edi- 
i^Io e armazenamentO de image ns colo* 
ridas criadas pdo usuirio, com recur- 
sos para facilitar a manipuliugao destas 
imagens. 



Onde comprar 



E ; abricado pela Compo do Brasil 
TmJ . e Com. Lid*, o Compopad esta 
sendo coilfterctalizado a 1 7,3 ORTN 
e e facilmentc enCOUUado nas tojas 
especial izadas era inforntacica. Bara 



ntaiores detallies, cormmique^se 
com o fahneante pclos t del ones: 
(Oil) 815-0793 e (Oil) 814*5482 
ou ainda no endere^o i Rua Sfo 
Tome, 86, Slo Paulo SP CFP: 
0455], 




Enn MS n-9 50, pSg. 44. Arquivo Art T#lBt, rv» rotinflSCXM), 

o corrfflo A POKE 15360 e nao POKE 16360 



end incorrfMD A lirlia nena deve ticar aumi: 

ijd ra r -*3759 to mr i 



Em MS o ? 51. p^s T2 r re Dice Oscihwgrtficq, *i 1ir>h» 90. 100 m 

1 30 aprvwitaom arroi. O certo 4: Nr,T 1 

l» !*• i-A rt'p ClrF *1 
120 V,T 

Em MS n ?S2, pig &4. a Orirrujre Iir5a da dice Amplie CvedfiVt 
nitt com atfQ. Dfpoii da camendo DATA, e eeno 4 ISO 4 nfo 166. 
Esta |r a lifth* coi-mt*: 

I Wit, ]fiO , 9 ,ltl. ? ,A 7 J .n, 6 < , m , , , , 



Err MS n? 52. p£g. 14. program! Monitor Gflfiw. a linlia 120 ds 
litiagem per a confpir a entrada dOi d-ttefOs AH dMigo heradtCritUl 







FILHO, A O. C., GrAftcOs 
no Appiv e TK 2000 , 

Editor* Crtncia Modtrm, 

Para gorar griflco* no Apple 6 
irnpraicirmivol o cdrtheci me nlo de 
malomiticu peritdara Este livrq, 
no emanto, dirttma-se Jquelei quc 
ttesajath trier grifioos,. mas, nfo 
poMuem grand?! CQnheclmdrttOs 
mat«fnltiwj £ import ante rarcel- 
!a f qu4 0 du tor nio (*m o objeti- 
VQ tic abordjr lodes US aspectos 
gtSfiCui AO Apple. 



Wo* Mpftiiloi sao uaiadot as- 
iumoi conxs coord*A*3M tarte- 
tianat; nlOvimentq de um tagmen- 
10 ; tm-Minhq, r« 0 luc &0 * I i mites 
da tela; cores; • * drcunlerencia e 
0 cfrculo. 5*0 aprqtnn Ladas ainri* 
troae program**, 

JUN IOR. J. d* O., Admfniit/ttSa 
X (nformAtict; compel fvtiit?. 
Cartflnf Editor*. 

A dicitfo de implanlar eom- 
putedorftl am u-rrtij empress nfo 
d?ve v?r (Orrt*jj da node para o 
dia; om«t de man nada i prsdiQ 
muito Mludb e planejanwolo. 
Neste livnl, a autor fprnece aos 
pr Qf-issi onais das Areas rte admins- 
Tragfo e in I oriruli i « um rOlnirtu 
delalhado cap« de orient*- 1 os na 
hora de automat i Jar iujs empne- 
sas. $$o abOrdadJM desde as p ri- 
me i raj dedxdet, tOmO estrurura 
de organ ifflcSo n lecnolngia rie 
USO, atd a eleborjgeo do Plano Dj- 
rotor de Informdtice e treinamorv 
to de peasant. 

ZUMERKORN, D.. FOLTHAN, 
0., tnformjftca nt Eicaia. 

Edtton AJnph 

tnfatmii,cA nj Etcaia foi de- 
MnvOlvaJO * peril r dfr vinOi anas 
(Jt) MnvCviO dos UK» au lores com 



elunts de uma esoOla de compuia- 
(jo, e d miliado foi eerramenie 
uma obre ban ante didifiM, 

Arrays d«te Itwro, criangas 
aprendirm a linguftgerri BASIC de 
marveira jimples. mat muito pro- 
dutrvu, jfi que Tudo l‘ exp lie ado 
dcteHiedamenle, howenda ainde, 
durante todo O lempg., ilustracies 
que facilitam a compreensdb ti crli- 
minefn qu-slquar divide, 

LOBU, M. de G,, MUMPS' 

Ed it or a Campus. 

AWm de Hr urr* Intrddiigao 
M MUMPS, este livro * um guia 
de refadneit entro alt a as outras 
lingiagjra *S cgnhecidas dos pro- 
g ramado r*j . 

Na obm, form dnernot os 
compandor lunto^s OOperaddres e 
lamfrdm at tiractarffliatidE algu- 
mas- imp lemon ladies. As e^tp lice- 
nses sao acompanhedas d* progra- 
ms! que servem wmo oxemploi u 
euxtHam a oompreaniJo do ihkeo. 

POOLE r L.. BORCHtHS. 

M„ BU RKE r P. M. r Programs 
pnitictn am BASiC - fSM 
PC < Hvj compativait, Edilon 
M cO nw H IW. 

Fstao Ipstados rwste iivrn se- 
terna e cinco prdgramai am BA- 



SIC pare micros <*e 1(5 bull Em- 
bora njo tCja umg obrj deslinada 
a CAnnar BASIC, O livrd tambem 
oode ter util (redo por principian- 
t«, 

Nes I i Hagens loram tndllfclat 
rjbserveqdes com q propbtilO dli 
ajuder o usu^rip u enrender o tun- 
cionsmenso de cada programa e, 
flrn elyuns casOs, hi ainda op^oes 
da alterac^o. Oi programed Pesti- 
nam-jfl Aj Arocs do finangas, mate- 
rniticB e estate jtico. 
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Aleph Edilon - Aw. BrigaderrO 
Faria Lima, 1451. OOftjufltO 31, 
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□ iVleaiante envio de cheque nominal e 
Edit ora Campus Ltda. <0 parte e par 
nossa canta e sue enegmenqa cheyg 
mjns r^pido I 

Cheque n“ 

Benco 

□ Median te qsgemento cont r a recebimen- 
to dos liwros pelo ieeml>olso postal. 
HCrescudo de desqeses posteis. 

Impart ante Free os validos at4 3 0.Q4B6. 
Apbs este dare informer se concord^ com 
o envio do pedido com n^u-iia. 

□ SIM C MAO 
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Como Program* s*u APPLE — Cook, 
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Joq os Graf pc os para o APPLE - Colette. 
P CrS U80OQ 

Manual APPLE am BASIC Kan tans, 

M. - Cr* 68.000 



BASIC afcieu - Pereira F®. .1, C - 
■! S“ Edicaa Revised^ e Ampharief — 
Cr* 92.000 

BASIC P(tt Aplk^»fS Csmtrdm - 
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- Cr* 57.000 
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Cr® 175.000 



L I NUU AG EM DE MAQUINA 

AlirH do BASIC, Lrneuagem ASSEM- 
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Linha TRS-COLOR 



■ 



COLOR mats rapido 

Um recurso bastanle li lil em jOgOs ou prOgramas quo Utilizani muito £&\- 
culo nutnerico e aumentar a velocidade do seu Color, Rasta incluir uma linha 
(ou digjtar como comando dire to): POKE 65495,0 

Para voltar no normal, e sA fazer POKE 65494,0 

C bom lembrar que, em alia vdccidade, as escalas de SOUND e PLAY 5 dc 
alteradas; assim, pode ser neccts^No incluir uma linha com POKE 65494,0 
antes de cxccuUr essas instru^Oes. 1 l: import ante tartiMm retornar a vclocida- 
de normal antes de gravar urn programs ou arquivo. Agora, iitroduza estas 
duas sequences, cronomet re o tempo de execute para cada uma delas c 
vtja se "bate 1 ' com o TIMER do micro: 

100 P0KE65494,0 : TIMER -0 : FORT= 1 TQ 1 0000 :NEXT :SOUNDl2S f 4 

' : PRINTTIMER/60 

20OFOKE6549S.0 : TIME R= 0 : FORT =1TOIOOOQ ;NEXT :SOUND128,.4 

iPRINTTIMER/60 



Claudio Cosia - RJ 




Linha 



Cores diferentes 

Com csta dica, voce poderd obEcr cm sen 
Color urn novo conjunto de cores, Para tes* 
tar, digile: 



j o e-f ^ ; t + i 
*■-’ - - - r e ■ 



E l ; i . c. 
6-Ftf }■& 



-e ■ i : o el : f - e 



Ap 6 s rodar o programs, aperte uma tecla 
entre 0 e 8 c a cor co /responds nte apareceri. 
Para colocar esta dica em seu programs, bat- 
lam as linhas 10 e 20 . 



TRS-80 



DBFUSR 
em cassete 

Para aqueles que tem TRS- 
80 cassete, esta roiina iri 
faeilitar a chamada dc rolinas 
em linguagem de mdquina. 



3 G ] itfuT -EkDESECO- ■ J 
W PfSfr- IhT LI/2C-&.I ie-SEp-i -it^Ii, Ji* 
» PtF'El L&L*: H> L 7, USB 
40 c-uSAUH 




Linha APPLE 



Feixe de linhas 

Este program inha cm BASIC cria 
urn interessante efeilo grdfico na te- 
la de sen micro. 

Para conseguir novos efeitos, al- 
tere a linha 30 ou cobque-a em 
diferentes lugares. 



S fi£n -**F£L3i£ H lCNh^S ** 
SO HOP s C(X{J«“ ’*! HOfiE. 

■20 FCft * 0 TD ' 

30 i+ - r^t ( i-'Mp * j ! 

$0 hCOLOfi* 

ay k#t.0T L'.n fq |s^i,n 

DT 0 , U r ri 5 rjO L J 3T N 
><:• HP:. 1ST N.o TD N i i 3‘1I 
S? HMl-OT N,(l TQ M h 13^ ■ N 
W, nE ! T N 



Cel so MprEno Serpfini - R£ 



FORTH 



Inversao 
de video 

Para os adept os desta fascinantc 
lingu agent, aqui vai uma dica para 
inversao do video, linta dica c espe- 
cifica para os micros ZXS1, poden- 
do ainda ser adaptada para outros 
equipamentos: 



Winfced H. Schumann - PR 



Anderson de Almeida - SP 



Gilborta F. da Silva - SP 




PATCHS no 
TRSDOS 



iSlflH , k' J 



**• ■ Utl l*!lF waif * u !o £4 iilfj 4K£:N4 £iOI 

M’S hT 



* S ■ F*n l.t-ir J, uiVSk A jp Jiv! V« + irL*riCT- 

Ftn& ki iFf.;--rfii,rL*-3Lk,ix^»i 
TO: IS® (lEfen a SiSTOtC IPUT Iran 



J tnjwpr , »n r fl I vOtl. * FJH( 
KTOl KS:.5t 1*0*5251.' H6.^.2ac»i 



te 4 ■ Vkj/r'. tt rrffl wfr 

« ®H3-TIO-S{ .5&:r ' Sf TOS 

IF ' ■ F+I+ » ►. Lj V1>; zn : t~ ■ 

W> *S-6K/TICH4.>fri5i' 

K m y *2 ! 



Linha ZX81 



INPUT em Assembler 



Uma das retinas mais 
deselcgantes dos compatT 
veis com o Sinclair ZX SI 
e, sem du vida, o INPUT. 
Assim, esta dica Lia ajud^- 
lo a simular urn INPUT d> 
fe rente. 

entrada no bEoco em 
Assembler e para usar a 
rotsna, dimen sione uma vn- 
riivcl tspo STRINGS com 
32 caractcrcs, a qua! devc 
scr a prijvieira vari^vel dE- 
cl a rad a no program a. 

Q endereqo 16507 deve 
ser pokeado com o codigo 
do carrier do cursor dese- 



jado c, anlcs de chamar a 
roiina, estabcle^a a posi- 
^So de entrada da mesma 
coiti PRINT AT, Em segui- 
da, podt usar RAND USR 
para ex ecu tar o INPUT 1 ; os 
dados de entrada retorna- 
rSo na varidvei dimension 
nada, sendo que o maxi- 
mo dc Caracteres na entra- 
da podeni ser de 3 1 . 

0 219 byte da rotina 
correspondc ao retardo na 
entrada de dados, podendo 
ser modificado a scu gosto. 
Esta rotina pode ser al ci- 
cada em qualquer posi^ao 



da mem 6 ria e no exemplo 
da listagem ent BASIC es- 
li COlotada na prrmeira 
linha .do programs, inician- 
do em 16514. 



■ft *E H' ZZ- 

*£ 3 «f r : <?I C*if 

H E 4 4 4-r- CD DC 

- * ^ E ‘ ■ i:=- II 
fa i: -c :"4 

J!- cc El et; D" 

CD 2. 5 C5 El 

EJ C" --I SC 4* 

40 n £- i-- 

CC -nc i? “I v? 



■ -- TAf & 

-c . f c 

Zi .t* i- i-n 
if t a*- $ 

r t *4 

t? .r fi 



FaU'O SiivesTre - SC 



ClAudio Costa - RJ 





























Linha Sharp PC1211 



Diagonals 




Eslc programa calcula o nO- 


ii’ «-e : - a i P 


mero de diagonals, de um polfgo 


« i j j r f ‘ * “ 


no, seguindo a formula que se 




indica: 


fc-h c [■.*. Ilf 

'• E ► ■, *■ 


4 „ n (n-3J 


ci'i/j.j . 
Z ? ***}Z ,. -JlPi>3 


2 






F N Ih-" IjJlF.y 


ondc d = n 9 de diagonals e n- la- 




dos dos pollgonos. 


w 

ben ■ , . * . 


Cristiarai Via^a 


Sana Villa - OF 



In 

did®! 



Linha ZX81 



Novo VUST 



Estou acompanbanrlo c Cm- 
so de FORTH pda MS e cslou 
gosla.ndo tnuilo. Das pa lavras 
publicadas no artigo dc han 
Camilo da Cruz (MS n? 32, 
pdg. 63), a que uni claantou 
aienfiTo foi a YLIST, por isso 
resolvi fazer algumas altera- 
£cie$- 

nova versTQ, o voca- 
bulirio do FORTH c aprcsert- 
lado em duas eolunas no vi- 
deo, so avan^ando sc ex i stir 
alguma teda picssionada. A ro- 
tina original do Ivan foi dcseiv 
voivida cm urn TRS-80 k e a mi- 
nha roda nos compat iveis com 
o ZX8R mas podc scr adaptada 
para qualquer FORTH Z&Q . 

A palavra UL define a ulti- 
mo linha da tela e ULM, a 
co Luna mais a<> Centro da ul- 



tima linha. Ji LISTA-PALA- 
VRA content uma rotirsa cm 
codigo de tniquma que faz o 
que o none indica, sen do 
5 3F3 u endere^o dc ontrada 
da retina que imprint e no vi- 
deo uina SI RING- 



SIT: 

■Dec 

: L-L. -Z * PTC a 
■ ih.m r; Li ptc : 

cfif^rr i ttfTA-PflL.Avw 

el c, sf c m t„ ea c. 

c. ;j c* 

it c* d_- c„ *1 n 
: s. EE-TA- vOL iji, c4 Cj*+ 

BEDEW 

I. [STA-f'riL AvftA 
UL-“l L I STA-PftLrtVftfi 
jjEV C IftGf Oh DUB 
0- UNTLL iJBQjl-' | 

: w iST GR ENTfrv LISTA-VDC 

Ck OR COrt'UiH i UCEIrt-vDO 
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Linha TRS-80 



"Multicurvas" 

Rode as duas rotinas abaixo e veju alguns efeitos 
intercssantes no seu video. 
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Linha TRS COLOR 



Controle o LIST 

Qucm yA tentou acompanhar a iistagem de urn Itingo 
programa usando SHIFT + @ sab43 o quanLo isso e frustrjn- 
tc; o SCROLL cuusjdo pclo linefeed e t3o rapido que se 
torna quase imprissivcl iuterromper o prucesso a tempo de 
local tzar uma detcirninada linha. Para rented iar cssa situa- 
tligiter 

POKE 38 3,1 2d : POKE 384 J 73 : POKE 385,251 

Ao dar LIST, aperte duas vezes a tecla EiNiTFR. Kssa di- 
es intro rluz uma pausa na listageru de modo que cada linha 
s & listada depois que algnma tecla for pressionada. Sc, 

por outro tado, a jntcnfSo nSo e facilitar, mas sim imped 3 r 
a iistagem, entffo digite; 

POKE 383,62 

Hm ambos os casos, POKE 383,0 faz o micro voltar ao 
normal. 
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Linha ZX SPECTRUM 



S/mu/ando HP LOT TO 



Rsta dica ntostra comrj se ptide simular 
a instrufSo HPLOT TO, inexistente nos 
micros da litiita Spectrum. 

O comando tem o seguinte formate: 
HPLOT X,Y TO W,Z C pode ser substitm- 
do por PLOT X h Y ; DRAW W-X, Z-Y, 



Para ilustrar o exemplo, segue urn pe- 
queno programs que Hz paraalinlia Apple 
e que traduzi para o ZX Spectrum. Ester 
programa iraga o arco dc circuEifcrcncia 
no angulo que voce quiser. 



InPjT C * fc 5 fifiio t 0 

ANGULO ' ’ R , ' , ,fl CLS CIRCLE 
l£“ P 

iO POP "up TO A LET* 

35 ‘.F .-L3a*Pl! i,rr Va&r4-fi*S-EN IF 
■■1*8*0 1' 

1-0 plot if- a? pPdi- X-iJ? . -5 
-10 -.EXT = 

£0 i?£. IFJT A - o 2- PiAC r P Aft 



E dm i I son F igygi r edd - -Sf 1 











Esta e a penultima li^ao do nosso curso. Nela voce vai apreoder a 
utilizar sub-rotinas em linguagem de maquina a parti r do FORTH, 



Cuiso de FORTH (VI) 

- — Antonio Costa — — ■ 



E xistsm i disposiqSo dos programadores de todas as 
linguagens, pacotes de sub -retinas cm linguagem de 
mdquina. AJgumas deltas sub-retinas reaiizam c51cu- 
los em portto flutuante, outras sffo para operates grd- 
ffcas e outras ainda servem para controlar unidades de disco ou 
impressoras, Nesta hfJTo, nbs vamos aprender a usar todo este 
rico acervo de software, a partir do FORTH. 

Fara usar uma sub-rot ina. em linguagem de maquina p voo£ 
precise escrever urn pequeno progjama cm Assembler que faga 
interface entre o FORTH e a sub-rotina. Nilo sc assuste, po- 
r^m, NSo e necessdrio saber muita coisa de Assembler para cs- 
cnever tai programa, ftasicamentc, voc£ precisa saber so tr£s 
coisas: como bhamar a sub-Totina, como passar dados paraela 
e como recuperar os dados que ela produz. Chamar a sub-rot i- 
na g nrtuilo simples: nas miquinas baseadas no Z-80 basta usar 
a instrvfSo C£Kendere^o> J onde enderef o d a posig^o de me- 
mbria em que fica a sub-rotina. 

O pnogjama CALL, da listagem I, inscre esta instnigSb na 
memdria da maquina. Vejamos como ele funciona. Quando 
o programador tecla CALL 716, a seqtlgncia “ASPACE TO- 
KEN^ entra em ag£o e le caracteres ate encontrat urn que seja 
branco. Os caracteres lidos sao transferidos para a regiJo da 
membria que Pica logo abaixo do dicsondrio em que FORTH 
guards as palavras que voeg definiu. ASP ACE serve para cob- 
car o eddigo do espago cm branco na ptlha, eddigo este que a 
paJavra TOKEN considers como sendo do carter no qua! a 
leitura deve aer intcrrompida- No caso presenter TOKEN lerd 
os caracteres “7”, t£ l ft e "6*\ 

Observe, leitor, que a seqiiSncia de caracteres “7” + “1” e 
*'6 >+ ndo 6 0 ndrnero 716, mas apenas uma representa^do dele. 
Re present a^So esta que os seres humanos eratendem, porem os 
comput adores n£o, £ precisa, pois, converter os caracteres 
lidos por TOKEN em urn udmero usdvcl pela maquina. Esta 
conversao d feita pda palavra NUMBER que 6 equivalents a 
fungSb VAL do BASIC. £e nSo houver erros, NUMBER dei sa- 
rd na pilha o resultado da conversSo seguido de 1. Este nume- 
ro indica que tudo oorreu bem. Case algo tenha saido errado, 
0 serd colocado na pilha. Quando o IF encontra 1, ele executa 
CD C, h . A a£&> dcstas instru^tkis pode ser resumida assim: 

1) CD C — A palavra “C," arma 2 jeita o byte CD na memoria. 

2) , — A vfrgula armazena dois bytes na membria (justa- 

mente os dois invert idos do ndmero convertido per 
NUMBER). 

Case o IF encontrc 0, ele conchii qua NUMBER fracassou h e, 
porlanto, a represen ta^o do numero cstava errada. E entffo 
cjtccutada a palavra QUESTION, que serve para abortar o pro- 
grams e impriTnir uma men sagem de erro. 

Muitas das sub-iOEinas em linguagem de maquina que voce 



Listagem 1 



HEX 

: < ?.<i TOEEJM ; 

( Pai«nt«^efi iarroduzlf uaat^tirlo& qo) 

( 44 Tudo quo «sUo pirfal^i 3 

< si* [w]* compUai*!, r-pce t*oha) 

( tec Lad* 3 aclnu. s* *sque^4 4* deisa r J 

( urn e-M[>n^o c-m Li^iS- 0 Ab-f* fKl T^DtfrSesJ 

[ EJEX lard * FOET3I tra taltiai rnt tas* 163 

: CALL A SPACE TOCEH HUKUHR 

IF CU C^ , 

else ouestius thew : 

. POP -H l Ei c, : 

: MP-L'L DIC,; 

: POP-BC Cl C, ; 

: POP-AE 1 1 C, r 
: PUSHFUL £> C, ; 

: PUSH-DE n^j C. ; 

. pvsn-ec C5 c„ ; 

: PUStl’AP rj. e, ; 

: PUSH -A ^6 C. 0 C, &F C. PUSH -ML ; 

: SAVEfifr C. ; 

: CODE CREATE BV C, ; 

: JP-HEIT B9 C. IfEIT ; 



id usar tiram. dados da memdria e colocam respostas tambdm 
pa memoria. Cornu nicar-sc com elas d muito fScu: basta usar as 
palavras “T e ^C!” para eolocar informagbes nos enderefos 
nos quaJs as sub-rotbas procuram dados, Terminada a execu- 
gdo s pode-se usar “ @ f ' e “C @ 1+ para obter a resposta do pro- 
blems. Infeltemente, existem sub-rolins$ que esperam dados 
cm xegistr adores e, para piorar mais as coisas, colocant a so!u- 
em regtstradoreS- A segunda coisa que voce precisa saber 
sobre Assembler 6 f portanto, como inscrir mimeros em rogis- 
tradorcs. 

Um registrador d uma cdlula de memdria usada pela unida- 
de de processamento do comput-ador para rcalizar ccrtas opc- 
ragdes. No Z-SG h interessa-nos os rcgisiradorcs cujos nomc$ Sffo 
H, B s Cj E e A. Para tlrarum intciro da pilha e coloe4-lo 
no par de regjstradores HL, usa-se o eomando em linguagem de 
maquina El, A palavra PQP-HL da listagem 1 usa “C," para 
armazenar El na memoria. De maneira anabga, um mimero 
pode ser transfer itb da pilba para os pares BC e DE com os co- 
mandos CJ. e Dl, Estes dois comandos s^io armaienados pelas 
palavras POP-BC c POP-DE. Note que comandos em linguagem 
de miquina sSo numeros da base 16 (isto e T sao inteiros “con- 
tados” com 16 dfgitqs, a sabar t 1^ 2 h 3 T 4 + 5, 6 t 7, 8, 9* A, B, 
C, D, E e F). Antes de entrar com palavras contendo taj^ co 
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mandos e precise fazer FORTH opejrar na base 16* n que pode 
ser conseguido tec!ando-$e HEX, 

Fin&lmente, a ultima eoisa que vgc§ precisa aprender do 
Assembler do Z-80 £ como colocar o contetida dos registra- 
tions na pilha, No caso tie HL,BC e DE tal coisa & fcita com 
o$ comandos ES.C5 e D5. Estes comaiidos s2o atmazcnados 
por PUSH'HL, PUSH-BC c PUSH-DE. No caso do rcgistrador 
A* a coisa £ mais eomplicada e deve scr feita pela seqQincia 
de comandos que aparecem na definite de PUSH-A. 

Urn programa em Assembler £ iiiserido no FORTH pels se- 
guintes estrutura: 

CHEATS <tfONE 00 PROGRAMS 

± 

* OseaiKtos . t . 

* 

NEXT 

Uma vez no FORTH, o programa em Assembler pode set u$a- 
do cOmO qualquer outra palavra. 

Muir as vezes a jotina em linguagem de maqmna que voce 
qucr chamar u$a os registradoics BC- Estes regist radons tain- 
b£m S5o u$ado$ no FORTH. 0 que fazeT? A $olu 9 aio £ protege- 
los antes de entrar na sub-rotina. Na Hnguagem de maquina do 
TRS-SO, e$la prole?ab pode $ct realizada com 0 comandg D9, 
que troca o conteudo dos registradores HL, BC e DE com o 
do$ registradorcs HL\ BC 1 e DE\ Ao tenTunar a execu£lo da 
sub-rotina, D9 £ povamente usado para desfazer a iroca, A 
fim do qua tais operates sejam efetuadas automaticainente, 
ddmimos* na listagem 1, a palavra CODE que, logo ap6s cha- 
ins r CREATE, armazena D9, Dc forma andloga, definimos 
JP-NEXT, que armazena D9 antes dc executar NEXT. 

No FORTH desenvolvido por Thomas Low, para o Sinclair, 
a protc^ao dos registradores deve scr feita chamando a sub-ro- 
iina 52 A4, A definite de CODE e JP-NEXT fica assim no 
Sinclair 2X81: 

t CORE CREATE CD C, 52 A4 , ; 

I JP-NEXT CD c, 52 A4 , HEXT ; 

Agora entre com a listagem 1 , Use para isto O editor publi- 
cado na terceira ligSo (MS n P 51), Acostumc-se sempre a digi- 
tar programas com auxilio do editor, de modo a n£o perder o 
trabalho, caso algum erro Ihe escape. 

ROT*NA EM PONTO FLUTUANTE 

Na memdria do TRS-80, hi vdrias sub-rotinas para realizar 
opera^Ges aritmiticas, Vamos ver como usd-las para formar urn 
pacotc dc ponto flutuante para o FORTH, 

A palavra 1NICI0, que aparece na listagem Swerve para im- 
cializar certos pardmetios dos quais FORTH precisari para se 
comunicar com a ROM dc maquinas com unidade de disco, 
Isto significa que, se sou computador possuir unidade de disco, 
voce deve digitar INICIO antes dc come^ar qualquer sessiio em 
que usari ponto flutuante. Caso voed nSSo tenha unidades de 
discos instaladas em sua maquina, n2o precisa teclar nem usar 

tNfao, 

A primeira rotina aritmetica dc que necessitaremos esti no 
endcre^o 0E6C da ROM e convene uma cadeia de caracteres 
cm urn nuraero com ponto flutuante. E!a exige que o registrar 
dor HL conteniha o enderefo da cadeia, a qual deve obrig^lo- 
hanicntc tersninar com urn 0. A palavra FNUMBER, que anaii- 
saremos a seguir, $e encarrega de preparar os dados para csta 
sub-rotina. 

Admifamos que a cadeia de caracteres *'814.51 S’" esteja 
logo apos o diclonario de FORTH. A palavra HERE fornecc o 
endcre^o da primeira c^lula apds o dicion^rio e, a$$im $cndo, 
£ u$ada por FNUMBER para localizar a cadeia que estS airna- 
zenada assim: 





[-]! 




[ ][•■■]! 


-* 

"5" ; 


|[-1 


■' 3 '■ ' 



tOmprirounto do cadeia. 



Listagem 2 



EJKX S esttutCH 44 t4{]4r li£I) 

< As jj:»liivras nianip.uLar J 

: 2DROP DKOP fteOP ■ ( Lni|-af d* UKOVl 

{ w^biilbAatlo c&m p^nic IlLituaare-) 

: 24* E>^J> % * « 1WM 5 ;t Ufiadt. tsO ] Ugif 4f> 4* > 

: Z\ ova R cvfifi i swap- ])HOP 2 + ' , ( U sid* para) 
t arniasOGOi* p*ot* IluLuantfl Artals^* a F 1 
: ipyp over QVlia ; t IJs^da UCI?' ) 

CK1TATE 3 SWAP t AflJlsge Jfl SWAP aias Juflciona c«d) 
( p*nto lULUl^nl^I 

a.I C, t> I C r Ei C, D> c. fii C. Q^i c, C] c, 

$[ c, lii c, a:$ c. c r es c r c ^ c. ^ e. nest 

( [HKlO Kfr #xc(ul-sj4 a 1 

f Uafralb** Jailquinas ibniJad* (fiKol 
. CMQVE (J DO OVfift t * ft 
OVR£ I • Cl 

loop a drop . 

CODE itncio 

WERE yf ALLOT 
7^ ^WAP yt CWOVE 
JP-T4£KT 

cons Ascii iR 

PDP'tlL 
CALL 0£(*C 
|P.HRXT 

- FnUMUKR 0 FIKRK DUP C* 3- - Cl 
lEHRtf 1^ ASCeiN dOAr 4 - 
IP 4151 a* ] K].SK 0 TUSH ; 

CODS blHASC 
CAM 0¥ilO 
JP-NKIT 

^CONVERT 4321 it 4 40 AE Cl 
DIWASC 4 1 HO , 

R, FCOKVHRT RflSlH DVP Ci- 0 = 

W EE 1 r,K DUPCp-FMTT If 
reiwat anon aspack emit .. 

. F'JK HECIJf fintie tarn 0 nfirtLSfs T 
5J>0& DUP J.IJP \ INPUT 
ASP ACE TOBKN ENUH^liR 
UNTIL ; 

VARIAB3.R TO 
: DEO GUILDS SAVH-RO 

non -UK 

POP-bC 

CALL 

JP-HEXT 

oossh tu i 4i2] i 4 iai * 

tV KJtSCUT 412,; *■ 4 LZ 1 fr , 
f V^Ja a dAn 44flAi{^i; atalwl 

JJFO E* 714 
DFO E 1 04 V 
DFO E- 71 J 
DFO t/ bAZ 
DFO HPT 1JF7 
: OFF bUU 1 Ll>£ SAVR^tC 
CALL 

jp-hskt 

DOESf TO I 4121 t 4l2i • 

TUEIECUT 4IZJ O 
412] # . 

OFF tlH ]>4T 
OFF COS J>41 
OFF TAN t>Ab 
OFF ATAN 1^00 
OFF LH 40 ft 
ova IIP 1A39 
OFF SO* JiSV 
OPE I'A&S 977 
DFF FLT 0AD1 

FLOAT 0 SWAP 2 40AF C Pit . 

UFE 1NTA0X OS 3? 

JNT INTAUJ SWAP DROP ; 

CODE ECP 
POP-Pt 
POP -EC 
CALL OAOC 
PUSH -A 
JP-MEIT 

. V\ 412 1 2 y FCP ] * r 
: F- 4121 If PCD av - , 

¥*■ 412] 21 FCP 0 - ; 
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CURSO PE FORTH (VI) 

Observe que o primeiro elemento da cadeia diz quantos ca- 
racteres ela tem. Suponhamos que o endere 90 fornecido por 
HERE seja 20312 e executemos FNUMBER manualmente. 
A opera 9 ao “0 HERE” faz a pilha ficar assim: 



20312 

0 

A DUP duplica o endere 9 o que esta no topo da pilha e C @ 
busca o conteudo dele (ou seja, o comprimento da cadeia). 
A pilha entao se torna: 

7 

20312 

0 

As palavras “1+ +” calculam o endere 9 o da celula que fica 
apos o ultimo digito de nosso numero, e C! coloca um 0 
nela. “HERE 1+” produzem o endere 90 do primeiro digito 
do numero, e o FOP-HL (que esta em ASCBIN) o coloca em 
HL. Neste ponto, “0E6C” e chamada. Esta sub-rotina vai 
colocar um 4 em 40AF, se conseguir converter a cadeia de 
caracteres para ponto flutuante. O numero em ponto flu- 
tuante e posto em 4 bytes a partir do endere 90 4121. A pa- 
lavra 2 @ que aparece em FNUMBER transporta estes 4 
bytes para a pilha. Cumpre notar que, caso a conversao te- 
nha exito e o 4 seja encontrado em 40AF, FNUMBER dei- 
xa na pilha o numero convertido e o inteiro 1 para avisar 
que teve sucesso. Quando a conversao falha, um 0 e aban- 
donado na pilha. 

A leitura de um numero em ponto flutuante e efetuada 
pela palavra F # IN. A fun 9 ao INPUT, que aparece nesta 
palavra, le uma linha do teclado e a coloca nas celulas de 
memoria que contain no endere 90 indicado pelo topo da 
pilha. No caso presente, este endere 90 e 5D00. A palavra 
TOKEN tira uma cadeia de caracteres da linha lida por. 
INPUT. A cadeia e retirada a partir do endere 90 apontado 
pela variavel LBP e colocada no endere 9 o indicado por HE- 
RE, onde FNUMBER vai busca-la e converte-la em nume- 
ro. Caso a conversao fracasse, FNUMBER deixa um 0 na pi- 
lha e o la 9 o BEGIN. . . UNTIL pede que o numero seja tecla- 
do novamente. 

A palavra FCONVERT e usada para converter um nume- 
ro em cadeia de caracteres. Ela usa a sub-rotina OFBD, a 
qual exige que o numero a ser convertido esteja nas quatro 
celulas de memoria que contain no endere 90 4121. Ela 
exige tambem que o numero 4 seja posto em 40AF. O 
transporte do numero para 4121 foi efetuado pela palavra 
2 !, e o leitor interessado deve estuda-la para ver como fun-' 
ciona. O numero transformado em cadeia de caracteres e 
colocado a partir do endere 9 o 4130, que FCONVERT deixa 
na pilha. A palavra “F.” busca a cadeia em 4130 e imprime 
seus caracteres um a um ate encontrar um 0. Este 0, que si- 
naliza o fim da cadeia, nao deve ser confundido com o ca- 
rater “0”, o qual e representado pelo codigo 30. 

Fa 9 a algumas experiencias com “F # IN” e “F.”. Leia 
numeros com “F # IN” e os imprima com “F.”. Agora 
voce pode dizer que seu FORTH tem ponto flutuante ! 

A defin^ao de palavras que efetuam opera 9 < 5 es aritmeti- 
cas e extremamente concisa e elegante. Apesar disto, e de 
dificil compreensao pois faz uso das palavras <BUILDS e 
DOES>, que muita gente encontra dificuldade em usar. 
Assim sendo, se voce entender os paragrafos que se seguem, 
estara de parabens e pode considerar-se desde ja um progra- 
mador FORTH. 

Conforme vimos na ultima li 9 ao, as palavras que usam 
<BUILDS e DOES> servem para definir outras palavras. 
Em particular, DFO serve para definir palavras capazes de 
chamar sub-rotinas que efetuam opera 9 oes aritmeticas. Uma 
destas sub-rotinas esta no endere 90 716 da ROM do TRS- 
80. Ela soma dois numeros em ponto flutuante e foi usada 
na defmi 92 o de “F+”, a palavra que realiza adi 9 ao em 
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FORTH. Vejamos como e isto. Quando voce digitar DFO 
F+ 716 as palavras entre o <BU1LDS e o DOES> de DFO 
serao executadas. As palavras POP-BC e POP-DE armazena- 
rao rotinas em linguagem de maquina capazes de transfe- 
rir um numero em ponto flutuante da pilha para BC e DE. 
A rotina CALL inserira uma chamada a sub-rotina 716 (o 
mesmo 716 que aparece na frente do “F+”). 

A partir deste momento, quando voce digitar F+ tudo o 
que esta entre o DOES> e o ponto e virgula sera executado. 
Inicialmente, DOES> colocara na pilha o endere 9 o em que 
estao os dados de “F+”. Estes dados formam o programi- 
nha em linguagem de maquina que chama a sub-rotina 716. 
Em seguida, 4 bytes serao colocados nos endere 90 s que es- 
tffo entre 4121 e 4124. Tais bytes correspondem a um dos 
numeros em ponto flutuante que serao somados por “F+”. 
As palavras “TU EXECUT” servem para executar a rotina 
em linguagem de maquina cujo endere 90 esta na variavel 
TU. Esta rotina e justamente aquela que foi salva entre o 
<BUILDS e o DOES> e tera a seguinte a 9 ao: um numero 
em ponto flutuante e colocado nos registradores DE e BC. 
Em seguida, a sub-rotina 716 e chamada. Ela soma o nume- 
ro que esta em BC e DE com o que esta guardado a partir 
de 4121. 0 resultado e colocado a partir de 4121 e trazi- 
do para a pilha pela seqiiencia “4123 @ 4121 @ ”. A defi- 
ni 9 ao de “F*”, “F-”, “F /” e “EXPT” e totalmente andlo- 

ga- 

Fa 9 a agora algumas experiencias. Tecle... 

F # IN 12. 12 

34.16 F* F. 

F # IN 

Observe que os dois numeros em ponto flutuante lidos 
por F # IN foram multiplicados um pelo outro. Tente usar 
tambem “F/” que efetua divisSes e “F-” que faz subtra- 
9 < 5 es. 

Na listagem 2, ha tambem a defini 95 o de palavras que 
calculam seno, cosseno, raiz quadrada e outras fu^Ses. 
Aqui vai um exemplo de como usa-las: 

F # IN 

16.0 SQR F. 

FORTH respondera com a raiz quadrada de 16.0. 

A sub-rotina em linguagem de maquina 0A0C compara o 
numero que esta em 4121 com o numero que esta em DE e 
BC. Se for maior, coloca FF em A; se for menor, coloca 1 ; 
se for igual, coloca 0. Foi baseado nesta sub-rotina que de- 
finimos as palavras “F>”, “F<” e “F =” que comparam nu- 
meros em ponto flutuante. Tambem foram definidas as pala- 
vras FLOAT, que converte um inteiro em ponto flutuante, e 
ENT, que converte ponto flutuante em inteiro. 

Para terminar esta li 9 ao, fa 9 amos duas observa 9 deS; Em 
primeiro lugar, as palavras que definimos s 6 funcionam no 
TRS-80. A ROM do Sinclair e diferente, e eu nao a conhe- 
90 . Espero, porem, que as pessoas interessadas em fazer cdl- 
culos no Sinclair consigam descobrir os endere 90 S das sub- 
rotinas que necessitam para adaptar as ideias aqui apresenta- 
das e introduzir um ponto flutuante no FORTH desenvolvi- 
do por Low. 

A outra observa 9 ao e que quern nao esta conseguindo 
entender o funcionamento do <BUILDS... DOES> e das 
interfaces em linguagem de maquina, nao deve se preocu- 
par. Tais conceitos sao realmente diffceis e so podem ser 
adquiridos aos poucos. 

■ 
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"RADIO FLEX. SOM E IMAGEffl MUITO 
NIELHOR". 

Os cabos Radiottex servem para 
antenas de equips memos proflssloneis 
de RF, VHF, UHF. tgielonia rural 
antenas fixas e mdveis de HF e VHF 
para radio amad ores, antenas coletivas 
e dom^sticas de TV , circuitos fer.hados 
de TV e ligates a rdvei da RF dentro 
ou Fora tie equips memos 

Radio Flex !ai tudo isso muito 
mdhor porque suas caracterfsticas 
meclnircas e elfitrtcas nunca mudsm 
Rod«tlex um cabo a altura do 
Seu equipamemo 
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A partir de agora a hisiorm dus 
micros pessoais vai ser contada em dims 
partes: antes e depois do TK 9C.X. 

0 TK 90X e. simplesmente. o umco 
micro pessoal lancado no Brasil que 
mflfecB a classificacao de 'software 
machine" : urn caso rare do micro que 
pela sua faciltdade de uso. grandes 



recur sos e preen acessivel recebeu a 
atertcao dus criadores do pro gramas e 
perifericos em todo n mondu. 



Para voce ter uma ideia. eastern 
mais de 2 mil pro gramas. 70 




revistas de usuanos disponiveis para ele 
intern acionalmerm 

E aqui o TK 9DX ja sat com mais de 
100 programas, enquanto outros esta □ 
em fa se final de desenvcSvimento para 
Ihe dar mais opcoes para trabalhar, 
ap render ou se divert ir que com qualquer ^ 
outrn micro. 

n TK 9QX tern duas versoes de 
memdria !de 16 on 48 K| r imagem de 
alia resolncao grsfica com 8 cores, 
carregamento rapidn de programas 
Iconirolavel pelo prdprio monitor], sum 
pela TV, letras maiusculas e mmusculas 
e an ida uma exclusividade: aceniuacao 
em ponu go 6s. 

Faca o seu programa: peca ja uma 
demonstr acao do novo IK 9 OX. 

/V1ICRODK51ML 
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